Предмет: Информатика,
автор: УнылыйСимба
Напишите, пожалуйста, подробную задачу по информатике в Паскале.
Содержание:
В равномерном массиве А10 состоящих из целых чисел, если элемент положителен - увеличьте в 2раза, если отрицателен - заменить на 0.
Заранее спасибо! Пишите подробную задачу для программы Паскаль. Не забудьте пунктуацию.
Ответы
Автор ответа:
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.
Похожие вопросы
Предмет: Қазақ тiлi,
автор: laurabaimisheva
Предмет: Математика,
автор: kochnevauliana
Предмет: Английский язык,
автор: uvzzvn
Предмет: Математика,
автор: 123викк456
Предмет: Математика,
автор: 123викк456