1 Составьте программку, которая наполняет массив a[1..10] случайными целыми числами в
1 Составьте программку, которая наполняет массив a[1..10] случайными целыми числами в спектре от 1 до 10 и вычисляет произведение массива с четными значениями. 2 Составьте программку, которая наполняет массив a[1..10] случайными целыми числами в спектре от 1 до 10 до 10 и вычисляет среднее арифметическое частей массива. 3 Такое же как и 2, только ...частей массива с четными значениями.
Задать свой вопрос
var a:array[1..10]of integer;
n1,n2,s,i:integer;
begin
n1:=1;
n2:=1;
for i:=1 to 10 do a[i]:=random(10)+1;
for i:=1 to 10 do begin
if a[i] mod 2=0 then n1:=n1*a[i] else n2:=n2*a[i];
s:=s+a[i];
end;
writeln(n1,' ',n2,' ',s/10);
end.
Объеденил все 3 программки: вначале выводит произведение четных, потом нечетных, позже среднее арифм.
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.