Question

Напишите программу, которая вводит с клавиатуры одномерный массив из 5 целых чисел, меняет отрицательные элементы на 0 и выводит новый массив на экран. Перед вводом каждого элемента на экране должна появляться подсказка с его.

Answer 1

Ответ:

program z;

var m:array [1..5] of integer;

i:integer;

begin

for i:=1 to 5 do

begin

write('m[',i,'] = ');

read(m[i]);

if m[i]<0 then m[i]:=0

end;

for i:=1 to 5 do write(m[i],' ')

end.