Дан массив,состоящий из 20-ти целых чисел.Выяснить,на сколько максимальный элемент превосходит минимальный :3 помогите ,котаны:3нужна программа в паскале
Дан массив,состоящий из 20-ти целых чисел.Выяснить,на сколько максимальный элемент превосходит минимальный :3
помогите ,котаны:3
нужна программа в паскале
Гость
Ответ(ы) на вопрос:
Гостьvar a:array [1..20] of integer; i,max,min,r:integer;
begin
max:=0; min:=24000;
for i:=1 to 20 do
readln(a[i]);
for i:=1 to 20 do
if a[i]max then max:=a[i];
r:=max-min;
writeln;
writeln(r);
readln;
end.
Не нашли ответ?
Похожие вопросы