Составьте программу, которая запрашивает значения элементов одномерного числового массива А, состоящего из10 элементов, формирует и выводит на экран в строку данный массив.

Найти сумму элементов, кратных 3;

количество нулевых элементов;

и произведение элементов, стоящих на нечётных местах.

Question

Информатика

Михайлыч

31 октября, 09:23

Составьте программу, которая запрашивает значения элементов одномерного числового массива А, состоящего из10 элементов, формирует и выводит на экран в строку данный массив.

Найти сумму элементов, кратных 3;

количество нулевых элементов;

и произведение элементов, стоящих на нечётных местах.

+1

Ответы (1)

Знаешь ответ?

Коляша · Answer 1

var

z, i, g, s:longint

a:array[0 ... 100]of longint;

begin

z:=1;

for i:=1 to 10 do

begin

read (a[i]);

if a[i] mod 3=0 then inc (s, a[i]);

if a[i]=0 then inc (g);

if i mod 2>0 then z:=z*a[i];

write (a[i],' ');

end;

writeln;

writeln (s);

writeln (g);

writeln (z);

end.