Program n_1
Var A: array [1..111] of {тип}
Begin
{Тело программы}
End.
Типы
Real
Integer и др.
Алгоритм не имеет решения, т.к. после блока ввода стрелка раздваивается на 2 что не возможно без условия. после блока условия должна быть стрелка в логический блок из которго должно выходить 2 стрелки "истина" (да) и "лож" (нет). и цикл должен быть из логического блока куда ни будь на верх алгоритма, чаще всего вновь на услоие.
Var
A,Min:integer;
N:byte;
Begin
Min:=30001;
Read(N);
For N:= 1 to N do
Begin
Read(A);
if (A>0)and(A mod 5 = 0)and(A < Min) then Min:=A;
End;
Write(Min)
End.
Алг Сумма
нач
цел s,i
s:=0
нц для i от 100 до 300
если mod(i,3) = 0 то
s:=s+i
все
кц
вывод "s = ", s
кон
Вот так?)).................