Вот условие: дано натуральные число н и действительные - вопрос №714213612 от aytac200505 07.09.2022 14:34

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.

aytac200505 · Answer

VarN:integer;A,max,min:real;BeginWrite( 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....