Ответы на вопрос:
Если помнишь как она называется (сам файл) то зайди сначала в загрузки и напиши её название в поиске)
const n=10;
var a: array[1..n] of integer;
i,k: integer;
begin
for i: =1 to n do
begin
a[i]: =random(21)-10;
if a[i]< 0 then k: =k+1;
write(a[i]: 5)
end;
writeln;
writeln (k)
end.
Популярно: Информатика
-
kir1kir108.02.2021 11:59
-
Божа19.09.2021 22:53
-
simone131115.11.2021 00:24
-
Цнрер07.07.2022 23:29
-
Виктория5892866319.08.2021 14:00
-
вика891406.12.2022 18:34
-
AlinaAlina70710.02.2023 15:04
-
AWIKOZA01.08.2020 04:29
-
stqz06.12.2021 00:10
-
anel310302.09.2022 22:32