Program Max_Min_of_5;
var A:array(1..5) of integer;
i, max, min:integer;
Begin
for i:=1 to 5 begin
writeln('',,':');
read(A(i));
end;
max:=A(1);
min:=A(1);
for i:=2 to 5 do begin
if A(1)>max then max:=A(1);
if A(1)<min then min:=A(1);
end;
writeln('=',);
writeln('=',);
End.
Жаль нету раздела "Помощи школьникам"....
Не могу правильно составить блок-схему.
Помогите пожалуйста...