Ответы на вопрос:
Тек вирусы бар дискетгерден программалық файл оқитын сәттерде оның нақты көлемі қысқарып небәрі 512 не 1024 байт қана болып қалады.
Var a: array [1..8] of integer; i,summ,n: integer; begin randomize; for i: =1 to 8 do begin a[i]: =random(1,10); write(a[i], ' '); end; n: =0; summ: =0; for i: =1 to 8 do if a[i] mod 2=0 then n: =n+1 else summ: =summ+a[i]; writeln(''); writeln('количество четных элементов ',n); writeln('сумма нечетных ',summ); end.
Популярно: Информатика
-
arman8324.12.2021 11:14
-
MoNKinsN28.05.2023 22:47
-
annakota221.09.2022 14:55
-
blurryriden08.03.2021 18:35
-
Илончик1020.06.2022 06:18
-
bati999918.02.2022 20:57
-
Катюшасррсрсомлилм17.03.2022 06:55
-
dabushov9526.06.2023 06:57
-
zanunkyk22.04.2023 09:31
-
ева1996125.05.2020 16:24