Составьте программу,которая заполняет массив а: [1..10] случайными целыми числами в диапазоне от -10 до 10 и выводит на экран исходный массив и отрицательные элементы массива
720612
3
03.10.2019 19:50
0
Другие вопросы по теме Информатика
saahmetovakarina
19.05.2019 09:40
missmira21
08.04.2020 15:34
настя20162003
19.04.2020 21:41
liza1288
19.04.2020 21:42
mebelru
10.06.2019 23:10
etre
10.06.2019 23:10
котяточка
16.10.2019 08:17
Dj669
10.07.2019 18:50
Популярные вопросы
- Прочитай текст и выполни (1) север- край невероятных просторов,...
2 - Чем известна московская область...
1 - 80 .1. какую работу может выполнить двигатель велосипеда «иртыш»...
1 - Написать про годовой жизненный цикл любого млекопитающего москвы/подмосковья...
3 - Поліамідне волокно капрон добувають з е-амінокапронової кислоти...
3 - Восстановите хронологическую последовательность событий: 1.востание...
2 - 1. если tga-ctga-р то, вычислите tg^3a-ctg^3а.2. сформулируйте...
3 - Переказ краткий пирожок з калиною...
3 - На основе анкеты друга составить рассказ о любимом магазине...
3 - Продолжите числовой ряд: 64, 48, 40, 36, 34, ...
3
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.