Вопрос по информатике:
Введите с клавиатуры одномерный массив S(K), элементами которого являются положительные и отрицательные числа. Найдите среднее арифметическое значение среди последних 9-ти элементов массива, максимум среди первых 5-ти элементов. Замените в массиве все элементы, которые больше найденного среднего арифметического - на максимум.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 20.06.2018 21:00
- Информатика
- remove_red_eye 18347
- thumb_up 90
Ответы и объяснения 1
Решение на 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]>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]>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
- 22.06.2018 13:18
- thumb_up 46
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.