Введите с клавиатуры одномерный массив S(K), элементами которого являются положительные и
Введите с клавиатуры одномерный массив S(K), элементами которого являются положительные и отрицательные числа. Найдите среднее арифметическое значение посреди заключительных 9-ти частей массива, максимум среди первых 5-ти частей. Поменяйте в массиве все элементы, которые больше найденного среднего арифметического - на максимум.
Задать свой вопрос
Решение на Free Pascal IDE 2.6.0
var s:array[1..15] of integer; k,max,arf:integer;
begin max:=0;
for k:=1 to 15 do
read(s[k]);
for k:=1 to 5 do
if s[k]gt;max then max:=s[k];
for k:=7 to 15 do
arf:=arf+k;
arf:=round(arf/9);
for k:=1 to 15 do
if s[k]gt;arf then s[k]:=max;
for k:=1 to 15 do
writeln('s[',k,']= ',s[k]);
Writeln('Srednee arifmeticheskoe = ',arf);
writeln('Max = ',max);
readln; readln;
end.C
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.