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

@dimbosss · Регистрация: 28.11.2009

@кот Бегемот · 28.11.2009, 16:51

Pascal

1
2
3

for i=1 to n do
if a[i]<0 then inc(k);
writeln(k);

А самому сложно?

@Snoopy · 28.11.2009, 16:53

Pascal

uses crt;
const n=3;
var a:array[1..n,1..n] of integer;
    i,j,k:integer;
 begin
  ClrScr;
  Writeln('Введите матрицу...');
  begin
   for i:=1 to n do
    for j:=1 to n do
     begin
      Write('a[',i,',',j,']->');
      Read(a[i,j]);
     end;
  end;
   Writeln('Введенная матрица*...');
   Writeln('---------');
    for i:=1 to n do
     begin
      for j:=1 to n-1 do
        Write(a[i,j]:3);
        Writeln(a[i,n]:3);
     end;
   Writeln('---------');
  for i:=1 to n do
   for j:=1 to n do
    if a[i,j]<0 then
     k:=k+1;
  Writeln('Кол-во ',k);
  Readkey;
 end.

@dimbosss · 28.11.2009, 16:55 **[ТС]**

Спасибо, на экзамене!)

@dimbosss 0 / 0 / 0 Регистрация: 28.11.2009 Сообщений: 10
		1
	В двумерном массиве размерности N найти число отрицательных элементов 28.11.2009, 16:49. Показов 1106. Ответов 3 Метки нет (Все метки) В двумерном массиве размерности N найти число отрицательных элементов 0

@dimbosss 0 / 0 / 0 Регистрация: 28.11.2009 Сообщений: 10
	28.11.2009, 16:55 [ТС]	4
	Спасибо, на экзамене!) 0

Опции темы

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

Решение