С какого вида графики получают плоские и про странственные изображения?
220
325
Ответы на вопрос:
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.
Популярно: Информатика
-
kirmanova7914.04.2021 04:31
-
Топор22821.05.2023 08:49
-
ольга164610.09.2020 00:39
-
Гениально127.01.2023 14:54
-
BelkinaDasha00023.03.2020 05:32
-
barenzi04.07.2022 21:59
-
Филин462562212.04.2020 02:04
-
Сателла114.05.2020 09:53
-
ermolaeva1207Arina18.05.2021 10:27
-
Елизавета5111126.07.2022 17:10