Введите массив из 10 чисел и выведите на экран только отрицательные значения этого массива.
Напишите,пожалуйста,программу.
More Questions From This User See All
Введите массив из 10 чисел и выведите на экран только отрицательные значения этого массива.
Напишите,пожалуйста,программу.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var
m : array [1..10] of Integer;
i : Integer;
begin
Writeln('Введите массив: ');
for i := 1 to 10 do
begin
Write('m[', i, '] = '); Readln(m[i]);
end;
Writeln('Отрицательные: ');
for i := 1 to 10 do
if m[i] < 0 then Writeln(m[i]);
end.