Ответы на вопрос:
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.
Популярно: Информатика
-
YulaTian1233402.04.2020 18:44
-
Nad17ka28.03.2023 11:55
-
2011200550543809.11.2020 05:57
-
DetkaGeimer17.10.2022 02:48
-
Dffc17.01.2023 08:50
-
аишамамедова24.02.2021 13:37
-
TRINDES201701.01.2023 03:42
-
benleo200121.03.2021 16:40
-
Юлька160616.02.2020 16:28
-
esnira109837616.09.2022 23:10