Вопрос школьника по предмету Информатика
Составить программу,которая:
Отрицательные элементы массива заменяет на 0
Ответ учителя по предмету Информатика
var
a: array of integer;
i, n: integer;
begin
readln(n);
setlength(a, n);
for i := 0 to n — 1 do
read(a[i]);
for i := 0 to n — 1 do
begin
if a[i] < 0 then a[i] := 0;
write(a[i], ‘ ‘);
end;
end.
Похожие вопросы от пользователей
Ответ должен состоять из обыкновеной дроби