Введите массив из 10 чисел и выведите на экран только отрицательные значения этого массива(c номерами этих массивов,т.е. при выводе на экран отрицательных значений будет написано,например:m[1]=-3).
Напишите,пожалуйста,программу.
program a1;
const n=10;
var a:array[1..n] of integer;
i:integer;
Begin
for i:=1 to n do begin
read(a[i]);
end;
for i:= 1 to n do begin
if a[i]<0 then writeln(a[,i,]=,a[i])
end
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
