Дан целочисленный массив из 7 элементов: 1) подсчитать произведение элементов массива кратных 5 и кратных 3. 2) подсчитать среднее значение четных элементов массива. 3) найти минимальное значение среди элементов массива <25 и положительных и номера, соответствующего элемента.

Question

Информатика

Самона

16 марта, 20:49

Дан целочисленный массив из 7 элементов: 1) подсчитать произведение элементов массива кратных 5 и кратных 3. 2) подсчитать среднее значение четных элементов массива. 3) найти минимальное значение среди элементов массива <25 и положительных и номера, соответствующего элемента.

+2

Ответы (1)

Знаете ответ на вопрос?

Сонюша · Answer 1

Var a:array[1 ... 7]of integer;

p3, p5, s, i, k, min, n:integer;

srz:real;

begin

p5:=1; p3:=1; min:=25;

for i:=1 to 7 do

begin

read (a[i]) ;

if a[i]0 then

begin

if a[i] mod 5=0 then p5:=p5*a[i];

if a[i] mod 3=0 then p3:=p3*a[i];

if a[i] mod 2=0 then

begin

s:=s+a[i];

k:=k+1;

end;

if a[i]
begin

min:=a[i];

n:=i;

end;

end;

end;

srz:=s/k;

writeln;

write ('proizv kratnih trem:', p3,' proizv kratnih peti:', p5,' srednee znachenie chet elementov:', srz,' minimalnoe:', min,' nomer minimalnogo:', n) ;

end.