Дан массив из 10 элементов. Подсчитать сумму трехзначных элементов массива, оканчивающихся нулем.

var

a:array [1 ... 10] of integer;

s, i:integer;

begin

for i:=1 to 10 do begin

write ('A[', i,'] = ') ; readln (a[i]) ;

if (a[i] mod 10 = 0) and (a[i] div 100 in [1 ... 9]) then s:=s+a[i];

end;

writeln ('Summa: ', s) ;

readln;

end.

1 2 3 4 5 6 7 8 9 10 11 12 13 var a : array [ 1 ... 10 ] of integer; i : integer; k : integer; begin writeln ('Введите массив: ') ; for i : = 1 to 10 do readln (a [ i ]) ; for i : = 1 to 10 do if (a [ i ] mod 10 = 0) then inc (k) ; writeln ('Исходный массив: ') ; for i : = 1 to 10 do write (a [ i ], ' ') ; writeln; writeln ('Количество чисел оканичвающихся нулем равно: ', k) ; end.