№1 Составьте программу, которая заполняет массив a[1..10] случайными целыми числами в диапазоне от 1 до 10 и вычисляет произведение массива с четными значениями. №2 Составьте программу, которая заполняет массив 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 программы: вначале выводит произведение четных, потом нечетных, потом среднее арифм.
Не нашли ответ?
Похожие вопросы