Вот условие:дано натуральные число н и действительные числа а1, а2 ... ан. Найти...

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.

Comments

Программа верная нужна?

---

да

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    End;
WriteLn('Max = ',max);
WriteLn('Min = ',min);
End.

Comments

спасибочки)

Answer 2

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

Comments

Как правильно тогда записать?

---

Действительные числа хранятся в переменных типа real.

---

не запускается, можете написать полностью программу

---

могу. А что не запускается.

---

могу. А что не запускается?

---

напиши пожалуйста полностью.Пишет ожидался оператор

---

у тебя в if пропущен then. Исправь!

---

это так скопировалось, в паскале есть

---

Там ошибок куча.. Repeat есть, а until - нет, вместо него оператор if..