Составить программу по условию: дан массив из 10 элементов.Найти сумму элементов, кратных 3 и двузначных. Массив задан случайно
на паскале
на паскале
Ответ
0/5
(0 оценок)
0
Мозг
Отвечающий
Так как задание не формализовано выводит последовательно суммы кратных 3 и двухзначных чисел
Program TZ5;
const
n=10;
var
a:array [1..n] of integer;
i,b:integer;
begin
randomize;
for i:=1 to n do begin
a[i]:=random (20);
a[i]:=a[i]-10;
writeln(i,' ',a[i]);
end;
b:=0;
for i:=1 to n do
if (a[i] mod 3)=0 then
b:=b+a[i];
writeln('summa kratnyh 3m=',b);
b:=0;
for i:=1 to n do
if abs(a[i]) >9 then b:=b+a[i];
writeln('summa dvuhznachnyh =',b);
readln;
end.