Напишите программу, которая вводит с клавиатуры одномерный массив из 5 целых чисел, меняет отрицательные элементы на 0 и выводит новый массив на экран. Перед вводом каждого элемента на экране должна появляться подсказка с его.
More Questions From This User See All
Answers & Comments
Ответ:
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.