Дан массив целых чисел, состоящий из 25 элементов. заполните его с клавиатуры. Найти: сумму элементов имеющих нечётные индексы; подсчитать количество элементов массива, значения которых больше заданного числа А и кратны 5

Question

Информатика

Христена

16 ноября, 15:04

Дан массив целых чисел, состоящий из 25 элементов. заполните его с клавиатуры. Найти: сумму элементов имеющих нечётные индексы; подсчитать количество элементов массива, значения которых больше заданного числа А и кратны 5

+5

Ответы (1)

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

Ариша · Answer 1

Const n=25;

var b:array[1 ... n] of integer;

s, k, a, i:integer;

begin

writeln ('vvedite massiv') ;

for i:=1 to n do

readln (b[i]) ;

writeln ('a=') ;

readln (a) ;

k:=0;

s:=0;

for i:=1 to n do

if i mod 2=1 then s:=s+b[i];

if (b[i]>a) and (b[i] mod 5=0) then inc (k) ;

writeln ('s=', s,' k=', k) ;

readln;

end.