ПОМОГИТЕ С МАТРИЦЕЙ! Опции

[7777-7777]

Всем доброго времени суток. Тут встала такая проблема нужно написать матрицу в паскале,
(пишу её в Paskal ABC) это требуется для сдачи зачёта, сам паскалем владею очень плохо, поскольку работаю с ним вплотную около двух недель, в принципе я написал что-то подобное, что требовалось. А не то это оказалось. А само задание звучит так: Дана произвольная матрица, к примеру, 4 на 4, состоящая, только из нулей и единиц. Подсчитать отношение количества единиц в строке к общему числу элементов строки (т.е. разделить количество единиц строки на количество элементов этойй строки). Строки с "весом" меньше 0,5 выбросить. Уважаемые товарищи прога нужна ну проста СРОЧНО! если в этот четверг я не сдам, то буду недопущен к экзаменам.

А, вот мои старания:

program matrix;
uses crt;
const n=4;
const m=4 ;
var i,j:integer;
var a:array[1..m,1..m] of integer ;
begin
for i:=1 to m do
for j:=1 to n do a[i,j]:=random(2);
for i:=1 to m do
begin
writeln;
for j:=1 to n do write(' ',a[i,j]);
end; end.

М

Использование тегов обязательно для всех... мисс_граффити

Сообщение отредактировано: мисс_граффити - 27.12.2006 4:06