Написать программу на паскале, которая вводит массив - вопрос №283825 от ponia 29.09.2021 04:47

Question

Информатика: Написать программу на паскале, которая вводит массив из n целых чисел и выводит на экран номера отрицательных элементов и сами эти элементы. протестировать программу для следующих массивов: а) 3 5 -2 0 -6 -8 1 б) -1 -2 -3 0 -1 2 3 массивы должны вводися вручную а не рандомно.

ponia · Answer

var a: array[1..100] of integer;

n, i: integer;

begin

write('Введите количество элементов массива');

readln(n);

write('Вводите элементы массива отделяя их клавишей "Enter"');

for i:=1 to n do

read(a[i]);

for i:=1 to n do

if a[i]<0 then write('число ', a[i], ', номер ', i,'; ' );

end.