Вот условие: дано натуральные число н и действительные числа а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.

cat73309owz9do cat73309owz9do    3   23.08.2019 22:40    1

Ответы
ychviviv ychviviv  08.09.2020 23:28
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.
ПОКАЗАТЬ ОТВЕТЫ
mardon1 mardon1  08.09.2020 23:28
Неправильно. Ты не знаешь разницу между натуральным и действительным числом, ты все их объявила integer, то есть целыми.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика