мне нужен только 3 и 4 номер , но так как они по 1 номеру , прикрепляю все задания

118

295

Посмотреть ответы 1

Ответы на вопрос:

Kamillka005

Информатика

4,6(6 оценок)

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.