Var A : array[1..12] of integer; i,max : integer;
begin
for i:=1 to 12 do
begin;
read(A[i]);
if A[i]>max then max:=A[i];
end;
Writeln(max);
end.
Это цикл. Начальное значение 1. Цикл будет выполняться 4 раза.
1. 1+1*2=3, теперь f равно 3.
2. 3+2*2=7, теперь f равно 7.
3. 7+3*2=13, теперь f равно 13.
4. 13+4*2=21.
После выполнения алгоритма f будет равно 21.
var a:array [1..5] of integer;
s,i:integer;
BEGIN
for i := 1 to 5 do
begin
writeln('a[',i,']=');
read(a[i]);
s:=s + a[i]
end;
writeln('s=',s);
END.
1)съедобное и не съедобное
2)районы
3)продукты