Ответы на вопрос:
program dds;
const n =10; var a: array[1..n]of integer; i,o,z,x,h: integer; begin z: =0; for i: =1 to n do begin a[i]: =random(10)-5; write(a[i]: 4); end; writeln; write('vvedite h'); readln(h); for i: =h+1 to n do begin if a[i]< 0 then a[i]: =0; if a[i]> 0 then z: =z+1; end; for i: =1 to n do write(a[i]: 4); writeln; write('chishel=',z); readln; end.
Популярно: Информатика
-
mvamz04.11.2020 13:44
-
ВЕSТ02.03.2023 05:12
-
all27126.12.2022 01:05
-
PlayerTheMineToCraft23.01.2023 01:41
-
али41929.01.2021 14:04
-
Oxxxy50215.01.2022 02:02
-
nodiraxon199823.04.2020 12:14
-
Oho921.09.2020 07:05
-
Русланн252103.04.2020 15:56
-
anjutaboyycova19.06.2021 12:18