Ответы на вопрос:
1c: =0 for i: =1 to 8 do begin if a [i]< 0 then inc (c); end; writeln (c); 2 c: =0 for i: =1 to 8 do begin c=c+i×i; end; writeln (c);
Популярно: Информатика
-
украинкасуперпомощь13.11.2021 05:14
-
Skuzairov12.01.2023 19:42
-
ogiifutball11.12.2020 07:35
-
0HIMiK007.01.2022 14:56
-
sorunbaevp00gzg25.09.2021 10:01
-
konulrzayevaa227.03.2020 14:02
-
vshapovalova2101.10.2022 20:09
-
Dimaa29921.02.2022 15:54
-
olgapustovarova119.10.2022 21:02
-
karinakatushkiowsqqh06.05.2021 10:43