Евдокия 25 октября 2019 в 07:20
Помогите пожалуйста! Задача по информатике в программе Pascal (11класс)
В целочисленном массиве из 15 элементов, заданным случайным образом найти:
• среднее арифметическое элементов кратных 5;
• количество чисел больших 11;
• вставить элемент на 5 место, равный мумие элементов изходного массива;
• ввести новый массив.
Помогите пожалуйста! Задача по информатике в программе Pascal (11класс)
В целочисленном массиве из 15 элементов, заданным случайным образом найти:
• среднее арифметическое элементов кратных 5;
• количество чисел больших 11;
• вставить элемент на 5 место, равный мумие элементов изходного массива;
• ввести новый массив.
Begin
var ar:=arrrandom(15,0,50);
write(Массив: );
ar.Println;
writeln(Среднее арифметическое элементов кратных 5: ,ar.Where(x-gt;x mod 5=0).Average);
writeln(Количество чисел больших 11: ,ar.Where(x-gt;xgt;11).Count);
ar[5]:=ar.Sum;
write(Новый массив: );
ar.Print;
end.
var ar:=arrrandom(15,0,50);
write(Массив: );
ar.Println;
writeln(Среднее арифметическое элементов кратных 5: ,ar.Where(x-gt;x mod 5=0).Average);
writeln(Количество чисел больших 11: ,ar.Where(x-gt;xgt;11).Count);
ar[5]:=ar.Sum;
write(Новый массив: );
ar.Print;
end.
Компьютеры и вычисления
276
0
Для комментирования необходимо зарегистрироваться на сайте