Question

ДАЮ 50 баллов Pascal Дан массив целых чисел состоящий из n элементов. Найти сумму элементов имеющие нечетные индексы. Посчитать кол-во элементов массива значение которых больше заданных А и кратных 5

Answer 1

const N = 10;
var b: array[1..N] of integer;
summ, k, A: integer;
begin
readln(A);
summ:=0;
k:=0;
for i:=1 to N do begin
readln(b[i]);
 If (b[i] > A) and (b[i] mod 5 = 0) then
k:=k+1;
If i mod 2 <> 0 then
summ:=summ+ b[i];
end;
writeln('Summ = ', summ);
writeln(k);
end.