Какая фигура будет нарисована после выполнения алгоритма повторить 4 раза вперед 20 налево 10
205
308
Ответы на вопрос:
Program lab5_5; const n=10; type x=array[1..n] of integer; var a: x; i,k: integer; begin for i: =1 to n do begin read(a[i]); {с вашего позволения я убрал "write (a[i]: 4)" в остальном программа получает от пользователя 10 чисел и обрабатывает их} end; writeln; k: =0; for i: =n downto 1 do if a[i]< 0 then begin k: =i end; if k> 0 then writeln ('индекс отрицательного элемента=',k: 1) else writeln ('в массиве нет отрицательных элементов'); readln; end.
Популярно: Информатика
-
artyommamedov11.12.2020 04:49
-
3lJouKpolJouk24.01.2021 02:28
-
natamelnichenko05.03.2022 22:42
-
1Max804.01.2022 23:16
-
karbannikita26.06.2022 11:41
-
шкальник228133717.05.2022 08:00
-
SASA760950802.06.2022 02:32
-
Рыжая11111105.03.2021 11:19
-
Лисёнка200502.03.2021 08:24
-
Marketing2319.01.2022 18:08