Ответы на вопрос:
Const n=10; var i,max,k: integer; mas: array[1..n] of integer; begin randomize; for i: =1 to n do mas[i]: =random(31)-20; for i: =1 to n do write(mas[i],' '); writeln; max: =mas[1]; for i: =2 to n do if max < mas[i] then max: =mas[i]; writeln('максимальный элемент массива: ',max); k: =0; for i: =1 to n do if mas[i] mod 2 < > 0 then k: =k+1; if k=0 then writeln('в массиве нет нечетных элементов') else writeln('количество нечетных элементов массива: ',k); end.
Популярно: Информатика
-
jiminiry0221.11.2020 17:55
-
NoName464312.09.2022 19:18
-
Difren01.07.2021 23:37
-
fatimaptacek16.03.2023 15:19
-
малый730.11.2021 04:28
-
макспростомакс111.12.2021 09:20
-
AsterXML31.10.2022 10:03
-
Grebeshe30.10.2021 19:35
-
yarik15905.09.2021 07:06
-
desna8001.02.2020 02:21