Найдите произведение элементов массива с чётными номерами - Pascal ABC

Формулировка задачи:

Тема: Одномерные числовые массивы. Указание: Заполните одномерный числовой массив D(12) случайными целыми числами в интервале [-10; 15]. Выведите значения элементов массива сначала в столбик, а затем в строку, причем на каждый элемент отведите 4 позиции. Ответ каждой задачи следует выводить с новой строки и с пояснительным текстом. Кроме того, следует каждый раз производить вывод массива на экран, если в нём произошли изменения: перестановка, замена, изменение значения элементов и т.д. Задача 1. Найдите произведение элементов массива с чётными номерами. Задача 2. Найдите количество ненулевых элементов массива. Задача 3. Найдите среднее арифметическое элементов массива.


textual

Код к задаче: «Найдите произведение элементов массива с чётными номерами - Pascal ABC»

program ex;
type vector=array[1..12]of integer;
var a:vector;
    i,p,k,s:integer;
    sred:real;
    
begin
writeln('массив(в столбец): ');
p:=1;k:=0;s:=0;
for i:=1 to 12 do
begin
a[i]:=Random(26)-10;
writeln(a[i]:4);
s:=s+a[i];
if (i mod 2 = 0)then p:=p*a[i];
if (a[i]<>0) then k:=k+1;
end;
 
writeln();
write('массив(в строку): ');
for i:=1 to 12 do
write(a[i]:4);
sred:=s/12;
writeln();
writeln('произведение элементов массива с четными номерами: ',p);
writeln('количество ненулевых элементов массива: ',k);
writeln('среднее арифметическое элементво массива: ',sred);
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

5   голосов, оценка 4.400 из 5

Источник
Похожие ответы