Ответы на вопрос:
program dz;
uses crt;
var mac: array [1..10] of integer;
b,c: integer;
begin
for b: =1 to 10 do
begin
mac[c]: = randomize (-10-(10)+1)+(10);
if mac[c]< 0 then
write (mac[c],', ');
end;
writeln (mac);
end.
Популярно: Информатика
-
qahhor24.01.2021 09:02
-
Dosina15.12.2020 20:49
-
Alina22832123417.08.2020 19:28
-
larisaiventeva23.10.2021 06:06
-
Stepancherk26.07.2021 00:04
-
vershinindaniil120.09.2020 20:02
-
SpaniGar03.06.2021 02:35
-
shmiganastya0608.11.2020 23:04
-
arinaohtova24.04.2023 17:00
-
05DKuzmin21.10.2020 07:39