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

Question

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

Содержание:

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

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

Answer 1

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.