Напишите, пожалуйста, подробную задачу по информатике в Паскале. Содержание: В равномерном массиве А10 состоящих из целых чисел, если элемент положителен - увеличьте в 2раза, если отрицателен - заменить на 0. Заранее спасибо! П...

Напишите, пожалуйста, подробную задачу по информатике в Паскале. Содержание: В равномерном массиве А10 состоящих из целых чисел, если элемент положителен - увеличьте в 2раза, если отрицателен - заменить на 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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы