Требуется помощь

[Я_Студент]

Пусть даны натуральное число n, вещественное число x, Вещественная матрица размером n на 2n. Получите последовательность b1...bn из нулей и единиц, где b1=1, если элементы в i-й строки матрицы не превосходят x, в противном случае b1=0.
Вот решал, но осталось только условие подделать, незнаю как.

program KypcoBaya;
var n,m,i,j,k,s:integer; x:real; a:array[1..100,1..100] of integer; b:array[1..100] of integer;
begin
        writeln ('‚ўҐ¤ЁвҐ зЁб«® n');
        readln(n);
        writeln ('‚ўҐ¤ЁвҐ зЁб«® x');
        readln(x);
        m:=2*n;
        for i:=1 to n do
        for j:=1 to m do
        begin
                writeln ('‚ўҐ¤ЁвҐ н«Ґ¬Ґ*в ¬*ббЁў*');
                readln(a[i,j]);
        end;
        for i:=1 to n do
        begin
        for j:=1 to m do
        if a[i,j]<x then b[i]:=1 else b[i]:=0;
        end;
        writeln ('Ќ*вг*«м*®Ґ зЁб«® n = ',n);
        writeln ('‚ҐйҐб⢥**®Ґ зЁб«® x = ',x:6:2);
        writeln ('Њ*вЁж* n x 2n');
        for i:=1 to n do
        begin
                for j:=1 to m do
                write (a[i,j]:4);
                writeln;
        end;
        writeln ('Џ®б«Ґ¤®ў*⥫*®бвм зЁбҐ«');
        for i:=1 to n do

        write (b[i],' ');
        writeln;
        readln;
        end.

Что непонятным шрифтом - этот русские слова, но думаю проблем не будет с этим, там просто введите число n и т.д.
Срочно нужно 10 здавать в институт. Помогите.
Связь со мной Painkiller3x@yandex.ru
Пишите на мыло пожалуйста, если кто знает.

moderator: Предупреждение, за создание темы не в том разделе. И - за наглость

[Snoopy]

Вот решал, но осталось только условие подделать, незнаю как.

если вы сами решали зачем матрицу целого типа объявляете?

Если вам лень "непонятный шрифт" заменить на понятный, при вашей срочности выполнения задачи да ещё хотите чтобы вам всё готовое прислали на мыло! Тогда писали бы во фриланс!

[puporev]

Присоединяюсь к мнению Snoopy.
Как я разбирался с твоим кодом, так ты сейчас разберись с моим. Все лишнее я выбросил и написал код по порядку, как следует.

uses crt;
var n,m,i,j,k:integer; 
x:real; 
a:array[1..10,1..10] of real; 
b:array[1..10]of byte;
begin
clrscr;
write('Vvedite n=');readln(n);
m:=2*n;
writeln('Vvedite ',n*m,' veshestvennyh chisel:');
for i:=1 to n do
for j:=1 to m do
read(a[i,j]); //вводим в строку через пробел числа
readln;
clrscr;//очищаем экран
writeln('Ishodnaja matrica:');
for i:=1 to n do
    begin
      for j:=1 to m do
      write(a[i,j]:6:2);  //выводим матрицу
	  writeln; 
	end;  
readln;
write ('Vvedite veshestvennoe chislo x=');//задаем число
readln(x);
for i:=1 to n do
    begin
      k:=0;
      for j:=1 to m do
      if a[i,j]<x then //считаем меньше х
          begin
	k:=k+1;
         end;	
       if k=2*n then b[i]:=1  //если все заносим в массив 1
       else b[i]:=0;  //если нет ноль
    end;
writeln('Zadannaja posledovatelnost:');
for i:=1 to n do
write (b[i],' ');
readln
end.

[Stilet]

Я бы так сделал:

for i:=1 to n do     begin  
             b[i]:=0; 
             for j:=1 to m do  if a[i,j]<x then begin b[i]:=1;end
        end;

[puporev]

Несогласен. Нужно чтобы все элементы строки не превосходили х, а для этого их надо подсчитать и чтобы их колическво было = 2n.

[Stilet]

Нужно чтобы все элементы строки не превосходили

Допустим, тогда за b[i]:=1 нужен break.

[puporev]

b1=1, если элементы в i-й строки матрицы не превосходят x, в противном случае b1=0.

Тогда уж

for i:=1 to n do     
    begin     
        b[i]:=1;    
        for j:=1 to m do  if a[i,j]>x then 
             begin 
                b[i]:=0;
                break;                         
             end  
    end;

[Stilet]

Тогда уж

Это я и имел ввиду.

[puporev]

Слава Богу, срослось!