Составить блок-схему к данному коду
Var
Min, Max, i, m, n:Integer
Begin
Readln (n) ;
max:=-maxint-1;
min:=maxint
For I:=1 to n do begin
ReadLn (m) ;
If (m>max) then max:=m;
If (m end;
Writeln (max,' ', min) ;
End.
Var
Min, Max, i, m, n:Integer
Begin
Readln (n) ;
max:=-maxint-1;
min:=maxint
For I:=1 to n do begin
ReadLn (m) ;
If (m>max) then max:=m;
If (m end;
Writeln (max,' ', min) ;
End.
Знаешь ответ?
Чтобы оставить ответ, войдите или зарегистрируйтесь.
Ответ или решение 1
gritzakova.86.03.04.wpp
Begin
var n : = ReadlnInteger ('n = ') ;
var max : = integer. MinValue;
var min : = integer. MaxValue;
for var i : = 1 to n do
begin
var m : = ReadlnInteger ($'m = ') ;
if (m > max) then max : = m;
if (m < min) then min : = m;
end;
Writeln ($'max = , min = ') ;
end.
var n : = ReadlnInteger ('n = ') ;
var max : = integer. MinValue;
var min : = integer. MaxValue;
for var i : = 1 to n do
begin
var m : = ReadlnInteger ($'m = ') ;
if (m > max) then max : = m;
if (m < min) then min : = m;
end;
Writeln ($'max = , min = ') ;
end.
Новые вопросы в разделе Информатика
s3129502@gmail.com
16.02.2024, 13:53
Информатика
7-9 класс
Адинела
05.10.2022, 08:15
Гаязутдин
05.10.2022, 01:10
Алайбек
05.10.2022, 01:05
Акияма
05.10.2022, 01:00
