Задача с использование процедур и функций

[gessi]

Нужно решить эту задачу через процедуры и функции:
Даны натуральное число n, действительное число x и действительная матрица размера nx2n. Получить последовательность b1,..., bn из нулей и единиц, где bi =1, если элементы i-ой строки матрицы не превосходят x и bi =0 в противном случае.
ПОМОГИТЕ
Заранее большое спасибо

[Stilet]

Да была уже такая задача. И условие это уже мелькало не раз
Заряди в поиск "nx2n".

Вот это вот http://www.programmersforum.ru/showt...highlight=nx2n что такое? Или ты кросспостить любишь?

[gessi]

Мне надо решить через процедуры и функции!!!!!!!!!А там решено бех них.

[Alex Cones]

Берете этот код:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var  n,i,j:integer;
     a:array[1..1000,1..2000] of real;
     b:array[1..1000] of byte;
     x:real;

begin
 writeln('n ');
 readln(n);
 writeln('x ');
 readln(x);
Randomize;
for i:=1 to n do begin
b[i]:=1;// считаем что все элементы < x
Writeln;
  for j:=1 to 2*n do begin
     a[i,j]:=random(30);
     write(a[i,j]:5:2,' ');
       if (a[i,j]>x)then begin // если хоть один элемент > x тогда b[i]:=0
        b[i]:=0;
       end; end; end;
Writeln;
for i :=1 to n do
write(b[i]:4);
readln;
end.

И делите его на процедуры.

[Stilet]

через процедуры и функции

А ты читал как их писать надо в паскале?
Если нет почитай.