Question

Вот условие: дано натуральные число н и действительные числа а1, а2 ан. найти минимальное и максимальное число. правильно я ввела программу? var n,min,max,a1,b,q,a: integer; begin write('n='); read(n); write('a1'); read(a1); min: =a1; repeat write('a='); read(a); if min> a then min: =a; write('b='); read(b); max: =b; repeat write('q='); read(q); if max write('min',min); write('max',max) end; end; end.

Answer 1

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.

Answer 2

Неправильно. Ты не знаешь разницу между натуральным и действительным числом, ты все их объявила integer, то есть целыми.