Question

Дан массив целых чисел. Напечатать: а) все четные элементы массива; б) все элементы, оканчивающиеся нулем.

Answer 1

Program maschetinol; var a:array [1..25] of Integer; i:Integer; begin Write ('Массив: '); for i:=1 to 25 do begin a[i]:=random(51); write (a[i], ' '); end; WriteLn; Write('Чётные элементы: '); for i:=1 to 25 do if a[i] mod 2 = 0 then Write (a[i],' '); WriteLn; Write('Элементы, оканчивающиеся на ноль: '); for i:=1 to 25 do if a[i] mod 10 = 0 then Write(a[i],' ') end.