Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

Задайте массив из 10 элементов с помощью датчика случайных чисел . Найдите разность наибольшего элемента и среднего арифметического элементов этого массива. Выведите на экран исходный массив и полученную разность .

Ответ оставил Гость

Program pr;
uses crt;
Var a:array[1..10] of integer;
    i,max:integer;
    s:real;
Begin
for i:=1 to 10 do Begin a[i]:=random(100); Write(a[i],;); end;
Writeln;
 max:=abs(a[1]-a[2]);
for i:=1 to 9 do
    if abs(a[i]-a[i+1])>max then max:=abs(a[i]-a[i+1]);
    s:=0;
for i:=1 to 10 do s:=s+a[i];

s:=s/10;
Writeln(max=,max);
Writeln(среднее арифметическое=,s);
readln;
end.