Дан массив a из n целых чисел. Требуется вывести только неотрицательные числа. Формат входных данных На первой строке входного файла записано натуральное число n (n≤100) — число элементов в массиве. На следующей строке через пр...
Дан массив a из n
целых чисел. Требуется вывести только неотрицательные числа.
Формат входных данных
На первой строке входного файла записано натуральное число n (n≤100) — число элементов в массиве.
На следующей строке через пробел записаны целые числа ai
(∣∣ai∣∣≤103)
— элементы массива.
Формат выходных данных
Требуется в одной строке через пробел вывести все неотрицательные числа в том же порядке, в каком они расположены во входном файле.
Гость
Ответ(ы) на вопрос:
Гостьvar
i, n: integer;
a: array[1..1000]of integer;
begin
readln(n);
for i := 1 to n do read(a[i]);
writeln;
for i := 1 to n do if (a[i] >= 0) then write(a[i], ' ');
end.
Не нашли ответ?
Похожие вопросы