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

@Shepord · Регистрация: 20.12.2011

В двумерном массиве B(n*m)целых чисел найти отрицательных элементов.

@КонецСвета · 20.12.2011, 11:57

Pascal

uses crt;
var b: array [1..100,1..100] of integer;
    n,m,i,j,k: integer;
begin
writeln('n,m=');
readln(n,m);
writeln('Äàí ìàññèâ');
for i:=1 to n do
    begin
    for j:=1 to m do
        begin
        b[i,j]:=random(11)-5;
        write(b[i,j]:3);
        if b[i,j]<0 then inc(k);
        end;
    writeln;
    end;
writeln('Êîëè÷åñòâî îòðèöàòåëüíûõ ýëåìåíòîâ â ìàññèâå = ',k);
readkey
end.

@Shepord 1 / 1 / 0 Регистрация: 20.12.2011 Сообщений: 14
		1
	В двумерном массиве целых чисел найти количество отрицательных элементов 20.12.2011, 11:42. Просмотров 3629. Ответов 1 Метки нет (Все метки) В двумерном массиве B(n*m)целых чисел найти отрицательных элементов. 0

Опции темы

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

Решение