Дан массив, состоящий из 20-ти целых чисел. Выяснить, на сколько максимальный элемент превосходит минимальный: 3

помогите, котаны: 3

нужна программа в паскале

Question

Информатика

Парфентий

21 марта, 22:42

Дан массив, состоящий из 20-ти целых чисел. Выяснить, на сколько максимальный элемент превосходит минимальный: 3

помогите, котаны: 3

нужна программа в паскале

+1

Ответы (1)

Знаете ответ?

Михай · Answer 1

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]
for i:=1 to 20 doif a[i]>max then max:=a[i];

r:=max-min;

writeln;

writeln (r) ;

readln;

end.

Дан массив, состоящий из 20-ти целых чисел. Выяснить, на сколько максимальный элемент превосходит минимальный: 3помогите, котаны: 3нужна программа в паскале

Дан массив, состоящий из 20-ти целых чисел. Выяснить, на сколько максимальный элемент превосходит минимальный: 3

помогите, котаны: 3

нужна программа в паскале