Ответы на вопрос:
блок-схема - во вложении.
program poliklolik; const n=10; var a: array[1..n] of integer; i: integer; begin writeln('*** alphaues is ***'); writeln('*** ok! ***'); for i: =1 to n do begin write('введите ',i,'-e число '); readln(a[i]); end; writeln('отрицательные элементы массива: '); for i: =1 to n do if a[i]< 0 then writeln(i,'-й: ',a[i]); writeln('*** the end ***'); end.
Популярно: Информатика
-
Lollladka128.01.2020 12:55
-
dfgds106.07.2022 20:49
-
SirenaLi2718.07.2020 20:28
-
zakrevskaya98916.12.2021 00:17
-
timkaserka14.02.2020 10:27
-
Angelina867212.11.2020 13:56
-
energy42804.11.2020 18:56
-
КатеринаАнгел23.05.2021 01:33
-
Какэтимпользоваться28.09.2021 09:51
-
Olga0806200319.04.2023 20:07