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

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

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

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

Question

Информатика

Линуся

2 июня, 21:26

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

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

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

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

+4

Ответы (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.