Дан массив целых чисел, состоящий из 10 элементов. Заполнить его с клавиатуры.
Найти:
-Удвоенную сумму положительных элементов;
-Вывести значения тех элементов, которые меньше заданного числа А кратны 3.
Program PR_1;var b:array [1..10] of integer;i,sum,A: integer;beginfor i:=1 to 10 do readln (b[i]);sum:=0;for i:=1 to 10 doif b[i] mod 2=0 then sum:=sum+b[i];sum:=2*sum;writeln (удвоенная сумма равна,sum);writeln (введите число);readln (A);for i:=1 to 10 do beginif (b[i]>A) and (b[i] mod 3=0) then writeln (b[i]);end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
