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

Question

Информатика

Мячеслав

17 января, 23:06

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

+1

Ответы (1)

Знаете ответ?

Феодора · 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.