Сформировать массив, каждый элемент которого равен количеству отрицательных элементов соответствующего столбца

@NaV · Регистрация: 07.01.2011

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

Сформировать одномерный массив, каждый элемент которого равен количеству отрицательных элементов соответствующего столбца заданной целочисленной матрици A размером 5Х8.

@sano32 · 11.01.2011, 08:06

Pascal

uses crt;
var a:array[1..5,1..8]of integer;
    c:array[1..50]of integer;
    i,j,kol,m:integer;
begin
clrscr;
randomize;
for i:=1 to 5 do begin
    for j:=1 to 8 do begin
        a[i,j]:=random(10)-4;
        write(a[i,j]:3);
    end;writeln;
end;writeln;
m:=1;
for j:=1 to 8 do begin
    kol:=0;
    for i:=1 to 5 do begin
        if a[i,j]<0 then inc(kol);
    end;
    c[j]:=kol;
    write(c[j]:3);
end;
readln;
end.

@NaV · 11.01.2011, 22:34 **[ТС]**

спасибо

@NaV 0 / 0 / 0 Регистрация: 07.01.2011 Сообщений: 53
		1
	Сформировать массив, каждый элемент которого равен количеству отрицательных элементов соответствующего столбца 10.01.2011, 23:49. Показов 1417. Ответов 2 Метки нет (Все метки) Сформировать одномерный массив, каждый элемент которого равен количеству отрицательных элементов соответствующего столбца заданной целочисленной матрици A размером 5Х8. 0

@NaV 0 / 0 / 0 Регистрация: 07.01.2011 Сообщений: 53
	11.01.2011, 22:34 [ТС]	3
	спасибо 0

Опции темы

Сформировать массив, каждый элемент которого равен количеству отрицательных элементов соответствующего столбца

Решение