Задание номер 5.2

for i:=0 to 10 do 
A[i]:=3*i;
for i:=1 to 10 do
A[i]:=A[i] mod 3; 

Все элементы будут равны 0.

(задается массив A[i]:=3*i от 0 до 10, 

потом меняется на A[i]:=A[i] mod 3 = 0. 
X mod a - остаток от деления числа X на а, все ячейки кратны 3, то остатка  не буде => ячейки будут равны нулю. )

Задание 5.1

Program Lika

Var A: array [1..30] of integer;

I,j,min: integer;

Begin

For i:= 1 to 30 do

Readln (a[i])

Min:=100

For:=1 to 30 do

Begin

If(a[i]>=20)and (a[i]<min)

Min:=a[i];

End.

Writeln(min);

End.