Задайте массив из 10 элементов с помощью датчика случайных чисел ...
Задайте массив из 10 элементов с помощью датчика случайных чисел . Найдите разность наибольшего элемента и среднего арифметического элементов этого массива. Выведите на экран исходный массив и полученную разность .
Есть ответ
17.12.2022
381
Ответ
Program pr;uses crt;Var a:array[1..10] of integer; i,max:integer; s:real;Beginfor 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.
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
17.12.2022