РЕШИТЕ В ПАСКАЛЕ!!!1. Найти разность между максимальным и минимальным числом из n...

Question

РЕШИТЕ В ПАСКАЛЕ!!!
1.
Найти разность между максимальным и минимальным числом из n
введенных чисел.

Answer 1

Var a:array[1..100] of integer; 
   i,n,max,min:integer;
begin
writeln('Skolko elementov');
readln(n);
for i:=1 to n do begin write('a[',i,']='); read(a[i]); end;
max:=a[1]; min:=a[1];
for i:=1 to n do if a[i]>max then max:=a[i];
for i:=1 to n do if a[i]writeln('Max - Min =' ,max-min);
end.

Comments

ты как то сложно решил

---

а полегче никак? не поверят что я решила

---

я не телепат, укажите как решать? через какую команду? то что вы проходили мне неизвестно.

---

если из n чисел, то явно используется массив, а вот если из 2,3 чисел то команда if.