Предмет: Информатика, автор: УнылыйСимба

Напишите, пожалуйста, подробную задачу по информатике в Паскале.

Содержание:

В равномерном массиве А10 состоящих из целых чисел, если элемент положителен - увеличьте в 2раза, если отрицателен - заменить на 0.

Заранее спасибо! Пишите подробную задачу для программы Паскаль. Не забудьте пунктуацию.

Ответы

Автор ответа: fil91
0

program lol;
var
a10:array[1..20] of integer;
i:integer;
begin
randomize;
for i:=1 to 20 do
begin
a10[i]:=random(50)-39;
writeln('Element #',i,': ',a10[i]);
end;
writeln;
for i:=1 to 20 do
begin
if a10[i] > 0 then a10[i]:=a10[i]*2;
if a10[i] < 0 then a10[i]:=0;
writeln('Element #',i,': ',a10[i]);
end;
readln;
end.

Похожие вопросы
Предмет: Английский язык, автор: uvzzvn
Нужен точный перевод
1. Думаю, стоит купить этот комплект спортивной одежды. 2. Малень-
кий мальчик выглядел довольно нелепо в своей новенькой, с иголочки
форме. 3. Каждый народ (people) имеет свою традицию в проведении
похорон. 4. К нашему удивлению, на этот раз Том дал нам ответ,
полный достоинства. 5. «Юнион Джек» развевался на ветру над кры-
шей дворца. Было ясно, что королева находится в своей резиденции.
6. Он еще жевал бутерброд, когда прозвенел звонок. 7. Какое поведение
ты назвал бы эксцентричным? 8. Терпеть не могу надевать туго на-
крахмаленные рубашки. 9. Дети решили устроить костюмированный
бал накануне Нового года. 10. Колеса у велосипедов делают съемными.
11. Между этими двумя близнецами огромная разница. 12. В центре
комнаты стоял большой деревянный стол с приделанными к нему лав-
ками. 13. Каждый молодой человек должен уметь как следует завя-
зывать себе галстук (make a proper knot on sth). 14. Не стоит есть
гамбургеры. Они приносят больше вреда, чем пользы.
Предмет: Математика, автор: 123викк456