Работа с массивами

[Slam893]

Задаёться матрица размером M x N. Получить массив B, присвоив его k-ому элементу значение 0, если все элементы k-го солбца матрицы нулевые, и значение 1 - в противном случае. (это нужно выполнить в паскале)
Для представленной выше задачи разработать форму(с использованием таких компонентов, как StringGrid, Edit,Label)и составить программу

[Вадим Мошев]

То есть, в конце концов, вам нужна программа на Делфи?
Я сделаю вам за 100 рублей на счёт мобильного телефона. Вы согласны?

Какие сроки?

[Slam893]

Мне хотябы в паскале сделать я сейчас на экзамене просто

[Вадим Мошев]

Кстати, массив B из чего состоит?

[Slam893]

Стринг гоид

[Вадим Мошев]

Вы же сказали в паскале сделать, там нет стрингГрид

[Slam893]

Блин массива В я не знаю из чего он состоит, это результат

Напишите пожалуйста программный код, очень надо

[Вадим Мошев]

Задаёться матрица размером M x N. Получить массив B, присвоив его k-ому элементу значение 0, если все элементы k-го солбца матрицы нулевые, и значение 1 - в противном случае.

Хорошо, k-й элемент массива определён, а остальные?
Вы откуда брали текст задачи?

[SlavaSSU]

var
a:array[1..100,1..100] of integer;
b:array[1..100] of integer;
i,j,n,t,m:integer;
begin
writeln('vvedite kolichestvo strok i stolbcov');
readln(n, m);
writeln('vvedite matricu');
for i:=1 to n do for j:=1 to m do read(a[i,j]);
for j:=1 to m do begin t:=0;
for i:=1 to n do if a[i,j]<>0 then begin t:=1; break; end;
if t=0 then b[j]:=0 else b[j]:=1;
end;
writeln('isxodnaya matrica');
for i:=1 to n do begin
for j:=1 to m do write(a[i,j],' ');
writeln;
end;
writeln;
writeln('res');
for i:=1 to m do write(b[i],' ');
readln;
end.

[Slam893]

Мне нужно теперь сделать в Delphi 7 эту же программу тока с формой и кнопками с помощью StringGrid edit...и так далее. Я сделал форму не могу сделать самого главного создать цикл ибо я не понимаю как его составить и что там писать((