Вмассиве из 10 целочисленных элементов, отрицательные элементы заменить на 0, а положительные на 1
паскаль
Amerilove57
1
04.12.2019 10:14
4
Другие вопросы по теме Информатика
vztositgicgc
25.06.2019 11:10
egoregorcherk
14.09.2019 13:30
cake55555
14.09.2019 13:30
Bog1209
14.09.2019 13:30
nazarpetrenko1
14.09.2019 13:30
lexa123assasin
14.09.2019 13:30
Kamila28032001
14.09.2019 13:30
belover
19.10.2020 12:01
anastasiaperova
19.10.2020 12:00
Популярные вопросы
- Почему не следует железными болтами скреплять медные провода?...
3 - Дан равнобедренный треугольник авс с углом с=120 градусов. найти синус,...
3 - 8. два шара изготовлены из одного материала. объём первого шара — 0,3...
2 - Выпишите из придложения все имена существительных в той форме, в которой...
3 - Решите уравнение x^2 -8 = -3x^2 + 20...
2 - Вставить пропушеные слова. один километр в 1000раз больше. один центнер...
1 - Периметр кватрата = 40 . найти площадь квадрата....
2 - Как оценивали путь развития и перспективы россии различные общественные...
3 - Очем рассказывает российский герб, что означает? ....
3 - ответить на вопрос what do you know about the british royal family of...
1
var a:array [1..10] of integer;
i:integer;
begin
write ('Массив ');
for i:=1 to 10 do
begin
a[i]:=random(19)-9;
write(a[i]:3)
end;
writeln;
write ('Массив ');
for i:=1 to 10 do
begin
if a[i]<0 then a[i]:=0;
if a[i]>0 then a[i]:=1;
write(a[i]:3)
end;
end.