Напишите программу, которая выбирает максимальное и минимальное из пяти введённых чисел

0 интересует 0 не интересует
162 просмотров

Напишите программу, которая выбирает максимальное и минимальное из пяти введённых чисел


спросил от (12 баллов) в категории Информатика
оставил комментарий от
0 0

Массив использовать можно?

оставил комментарий от (12 баллов)
0 0

да

оставил комментарий от
0 0

VarA:array[0..6]of integer;i:integer;BeginWriteLn('Введи пять чисел');For i:= 1 to 5 do Read(A[i]);A[0]:=A[1];A[6]:=A[1];For i:= 2 to 5 do Begin if (A[i]A[i-1])and(A[i]>A[6]) then A[6]:=A[i] End;WriteLn('MAX = ',A[6]);WriteLn('MIN = ',A[0]);End.

1 Ответ
0 интересует 0 не интересует
ответил от Бакалавр (10.7k баллов)

Var a:array[1..5] of real;
i:integer;
min,max:real;
begin
for i:=1 to 5 do
begin
write ('Введите ',i,' число: ');
readln (a[i]);
end;
max:=a[1];
min:=a[1];
for i:=1 to 5 do
begin
if a[i]>max then max:=a[i];
if a[i]end;
WRITELN;
writeln ('Максимальное = ',max);
writeln ('Минимальное = ',min);
end.

...