В двумерном числовом массиве подсчитать количество отрицательных и нулевых элементов

@praktik32 · Регистрация: 25.11.2013

Author24 — интернет-сервис помощи студентам

В двумерном числовом массиве подсчитать количество отрицательных и нулевых элементов и выдать на каких местах(строка, столбец) они находятся.

@ildwine · 25.11.2013, 11:34

Pascal

const
  n = 6;
  m = 5;
var
  a : array[1..n, 1..m] of integer;
  i, j, k : integer;
begin  
  k := 0;
  randomize;
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      a[i,j] := random(10) - 5;
      write(a[i,j]:4)
    end;
    writeln
  end;
  writeln('отрицательные элементы:');
  for i := 1 to n do
  begin
    for j := 1 to m do    
      if a[i, j] < 0 then
      begin
        inc(k);
        write(' a[', i, ',', j, '] = ', a[i,j])
      end    
  end;
  writeln;
  writeln('количество отрицательных: ', k);
  readln  
end.

@praktik32 0 / 0 / 0 Регистрация: 25.11.2013 Сообщений: 11
		1
	В двумерном числовом массиве подсчитать количество отрицательных и нулевых элементов 25.11.2013, 01:10. Показов 1714. Ответов 1 Метки нет (Все метки) В двумерном числовом массиве подсчитать количество отрицательных и нулевых элементов и выдать на каких местах(строка, столбец) они находятся. 0

	25.11.2013, 11:34

В двумерном числовом массиве подсчитать количество отрицательных и нулевых элементов

Решение