Помогите пожалуйста! Задача по информатике в программе Pascal (11класс)
В целочисленном массиве из 15 элементов, заданным случайным образом найти:
• среднее арифметическое элементов кратных 5;
• количество чисел больших 11;
• вставить элемент на 5 место, равный мумие элементов изходного массива;
• ввести новый массив.
Ответы
Ответ дал:
0
begin
var ar:=arrrandom(15,0,50);
write('Массив: ');
ar.Println;
writeln('Среднее арифметическое элементов кратных 5: ',ar.Where(x->x mod 5=0).Average);
writeln('Количество чисел больших 11: ',ar.Where(x->x>11).Count);
ar[5]:=ar.Sum;
write('Новый массив: ');
ar.Print;
end.
var ar:=arrrandom(15,0,50);
write('Массив: ');
ar.Println;
writeln('Среднее арифметическое элементов кратных 5: ',ar.Where(x->x mod 5=0).Average);
writeln('Количество чисел больших 11: ',ar.Where(x->x>11).Count);
ar[5]:=ar.Sum;
write('Новый массив: ');
ar.Print;
end.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад
8 лет назад
9 лет назад