Toambugzh
6 год назад
Напишите программу которая вычисляет минимальное и максимальное число среди чисел вводимых с клавиатуры.
ОТВЕТЫ
Rostislav
Jul 25, 2019
uses crt;
var max,i,min,now:longint;
begin
clrscr;
writeln ( vvedite kol-vo chisel );
readln (n);
write (vvedite 1 chislo: );
readln(now);
max:=now;
min:=now;
for i:=2 to n do begin
write (vvedite ,i, chislo: );
readln(now);
if nowgt;max then max:=now;
if nowlt;min then min:=now;
end;
writeln (minimum raven: ,min);
write (maximum reven: ,max);
readln;
end.
var max,i,min,now:longint;
begin
clrscr;
writeln ( vvedite kol-vo chisel );
readln (n);
write (vvedite 1 chislo: );
readln(now);
max:=now;
min:=now;
for i:=2 to n do begin
write (vvedite ,i, chislo: );
readln(now);
if nowgt;max then max:=now;
if nowlt;min then min:=now;
end;
writeln (minimum raven: ,min);
write (maximum reven: ,max);
readln;
end.
220
