Введите с клавиатуры одномерный массив S (K), элементами которого являются…

Question

49

Введите с клавиатуры одномерный массив S (K), элементами которого являются положительные и отрицательные числа. Найдите среднее арифметическое значениесреди последних 9-ти элементов массива, максимум среди первых 5-ти элементов. Замените в массиве все элементы, которые больше найденного среднего арифметического — на максимум.

категория: информатика

ответить

в избранное ссылка

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

kapustinivan · Accepted Answer

69

kapustinivan

02 апреля 2023

Решение на Free Pascal IDE 2,6,0var s: array[1… 15] of integer; k,max,arf: integer; begin max: =0; for k: =1 to 15 doread (s[k]); for k: =1 to 5 doif s[k]>max then max: =s[k]; for k: =7 to 15 doarf: =arf+k; arf: =round (arf/9); for k: =1 to 15 doif s[k]>arf then s[k]: =max; for k: =1 to 15 dowriteln ('s[',k,']=',s[k]); Writeln ('Srednee arifmeticheskoe=',arf); writeln ('Max=',max); readln; readln; end.C

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: