Ответы на вопрос:
Program n1; const n=15; var a: array[1..n] of integer; i,k,sum: integer; begin randomize; k: =0; sum: =0; writeln('исходный массив: '); for i: =1 to n do begin a[i]: =random(21)-10; write(a[i],' '); if a[i]> 0 then begin k: =k+1; sum: =sum+a[i]*a[i]; end; end; writeln; writeln('сум. кв. положительных: ',sum); writeln('кол-во положительных: ',k); end.
Популярно: Информатика
-
artemmishin777777722.06.2020 03:20
-
200408011104.08.2021 09:03
-
сорин888820.05.2020 03:38
-
olyasmirnova318.10.2020 00:28
-
zakrevskaya98921.01.2022 18:37
-
supernogai22.02.2023 06:19
-
Il12345617.10.2021 13:57
-
SakuraHarunoo06.04.2020 23:31
-
galina51024.03.2023 04:07
-
070974zZ29.05.2020 22:15