(пишу её в 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.
М | Использование тегов обязательно для всех... мисс_граффити |
Сообщение отредактировано: мисс_граффити -