Задание 1. заполните массивы по данному фрагменту: for I:= 1 to do A[i]:=2*i-1

Задание 2. В массив занесены следующие данные: -2, 7, 4, -5, 2,0,-1,6,3,-2, где А[i]= -2, A[i]=7 и т.д. Определите результат обработки массива:
var s,t:integer;a:array [1...10] of integer;
begin

t:=0
for I:= 1 to 10 do
if (A[i] > 5) or (A[i] < 0) then t:=t+1;
end;
writeln( t );

botan2008    2   02.03.2020 12:23    1