Цитата:
Сообщение от Boginy
2) В массиве целых чисел А1,..., An обнулить все отрицательные числа
|
Код:
uses crt;
var a: array[1..100] of integer;
i, n: integer;
begin
write('Введите количество элементов массива');
read(n);
writeln('Заполните массив целыми числами');
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
if a[i]<0 then a[i]:=0
writeln('получившийся массив после обработки:');
for i:=1 to n do
writeln(a[i]);
readln
end.