Леонид
6 год назад
Вот условие:дано натуральные число н и действительные числа а1, а2 ... ан. Найти минимальное и максимальное число.Правильно я ввела программу?var n,min,max,a1,b,q,a:integer;beginwrite('n=');read(n);write('a1');read(a1);min:=a1;Repeatwrite('a=');read(a);if min>a then min:=a;write('b=');read(b);max:=b;Repeatwrite('q=');read(q);if maxwrite('min',min);write('max',max)end;end;end.
ОТВЕТЫ
Nikolaj
Oct 24, 2020
Var
N:integer;
A,max,min:real;
Begin
Write('N = ');ReadLn(N);
WriteLn('Введите числа');
Read(A);
max:=A;
min:=A;
For N:= 2 to N do
Begin
Read(A);
if A>max then max:=A;
if A<min then min:=A;
End;
WriteLn('Max = ',max);
WriteLn('Min = ',min);
End.
N:integer;
A,max,min:real;
Begin
Write('N = ');ReadLn(N);
WriteLn('Введите числа');
Read(A);
max:=A;
min:=A;
For N:= 2 to N do
Begin
Read(A);
if A>max then max:=A;
if A<min then min:=A;
End;
WriteLn('Max = ',max);
WriteLn('Min = ',min);
End.
616
Смежные вопросы:
