1. Дан массив. Напечатать: а) Все четные 1. Дан массив. Напечатать:

а) Все четные элементы

б) Все элементы, оканчивающиеся нулем.

2. В массиве хранится информация о количестве осадков, выпавших каждый день января. Определить, в какие числа месяца осадков не было.

Паскаль.

Program gt;

var a:array[1 ... 100]of integer;

n, i:integer;

begin

read (N) ;

for i:=1 to n do

read (a[i]) ;

write ('чётные числа ') ;

for i:=1 to n do

if (a[i] mod 2=0) then write (a[i],' ') ;

writeln;

write ('числа оканчивающиеся нулем ') ;

for i:=1 to n do

if (a[i] mod 10=0) then write (a[i],' ') ;

end.

2)

program gt;

var a:array[1 ... 1000]of integer;

n, i:integer;

begin

read (N) ;

for i:=1 to n do

read (a[i]) ;

for i:=1 to n do

if (a[i]=0) then write (i,' ') ;

end.