Const n=15; var a:array[1..n] of integer; i:integer; begin Randomize; Writeln('Исходный массив'); for i:=1 to n do begin a[i]:=Random(35)+1; Write(a[i],' ') end; Writeln; Write('Элементы, оканчивающиеся нулем: '); for i:=1 to n do if a[i] mod 10=0 then Write(a[i],' ') end.
// с циклом while var s,i:integer; begin i:=100; while i<=999 do begin if i mod 77 = 0 then s:=s+i; i:=i+1; end; writeln('Сумма трехзначных кратных 77: ',s); end.
Const n = 5; m = 5; var a:array[1..n,1..m] of integer; i,j,s:integer; begin //Для теста заполним массив сл.числами for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(21)-10; write(a[i,j]:4); end; writeln;writeln; end; //сумма всех элементов массива for i:=1 to n do for j:=1 to m do s:=s+a[i,j]; writeln('сумма всех элементов массива: ',s); //сумма каждой строки for i:=1 to n do begin s:=0; for j:=1 to m do begin s:=s+a[i,j]; end; writeln ('Строка: ',i,' сумма:',s); end; end.
n=15;
var
a:array[1..n] of integer;
i:integer;
begin
Randomize;
Writeln('Исходный массив');
for i:=1 to n do begin
a[i]:=Random(35)+1;
Write(a[i],' ')
end;
Writeln;
Write('Элементы, оканчивающиеся нулем: ');
for i:=1 to n do
if a[i] mod 10=0 then Write(a[i],' ')
end.
Пример
Исходный массив
8 28 35 25 35 1 20 14 30 4 2 15 20 2 13
Элементы, оканчивающиеся нулем: 20 30 20