Дан двумерный массив,заполненный случайными числами от -10 до 10. Определить есть ли в данном массиве строка,в которой равное количество положительных и отрицательных элементов.Если есть вывести Пожалуйста,срочно,до восьми часо...
Дан двумерный массив,заполненный случайными числами от -10 до 10. Определить есть ли в данном массиве строка,в которой равное количество положительных и отрицательных элементов.Если есть вывести
Пожалуйста,срочно,до восьми часов ндо сдать
Гость
Ответ(ы) на вопрос:
Гостьprogram p_2;
var
a : array[1..10,1..10] of integer; // двумерный массив.
i, j, p, o : integer;
begin
// Тут считаем,что массив уже получен
for i := 1 to 10 do
begin
p := 0;
o := 0;
for j := 1 to 10 do
if (a[i,j] > 0)
then p := p + 1
else o := o + 1;
if(o = p) then
for j := 1 to 10 do
write(a[i,j], ' ');
end;
end.
Не нашли ответ?
Похожие вопросы