Введите с клавиатуры одномерный массив S(K), элементами которого являются положительные и отрицательные числа. Найдите среднее арифметическое значение
10-11 класс
|
среди последних 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]>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
Другие вопросы из категории
пользователя вводит числа с интервалом 0,1
у=3х*х+х-4 на отрезке от а до в
второй, Даша третьей; 3) Алла будет второй, Даша четвёртой. Оказалось, что в каждом предположении только одно высказывание верно. Какое место заняла каждая из девочек?
Читайте также
положительных элементов и С(М) из отрицательных элементов. В массиве D(V) определите максимум, а в массиве С(М)-минимум.
элементов.Найти колличество четных положительных элементов.
3)Дан массив из 6 элементов.Найти произвдение положительных из них.
числа 7 и меньше 10. Вывести количество элементов массива и среднее арифметическое значение этих элементов, которых больше заданного числа 7 и меньше 10 на монитор
элементов массива A в строке.
индексами. выведите на экран исходный массив и полученное среднее арифметическое.
2. Задайте массив из 10 элементов с помощью датчика случайных чисел. замените все элементы с четными индексами максимальными. Выведите на экран исходный и измененный массивы