№1. дан массив напечатать: 1)все неотрицательные элементы. 2)все элементы не превышающие числа 10 №2 дан массив целых чисел.напечатать: 1)все элементы кратные 5 2)все элементы заканчивающиеся 0
№1 1)2) var a:array[1..5]of integer; i:byte; begin for i:=1 to 5 do readln(a[i]); writeln(); for i:=1 to 5 do if (a[i]>0) and (a[i]<10) then begin writeln(a[i]); end; end.
var a:array[1..5]of integer;
i:byte;
begin
for i:=1 to 5 do
readln(a[i]);
writeln();
for i:=1 to 5 do
if (a[i]>0) and (a[i]<10) then begin
writeln(a[i]);
end;
end.