Не вводится матрица с клавиатуры

@ETHERNALL · Регистрация: 11.11.2018

Author24 — интернет-сервис помощи студентам

Привет всем.
Задание крч у меня такое Дана вещественная матрица X размера 6×8. В каждом столбце найти наибольшее значение и сформировать одномерный массив из найденных значений.Но я для отладки программы использую матрицу 3х3.
И я не могу ее ввести.Вылетаю из программы с ошибкой exitcode 201.
Вот текст.Обязательно надо использовать динамический массив.

Pascal

const
m=3;
n=3;
var
x:array of array of real;
y:array of real;
i,j:integer;
k:real;
 begin
 setlength(x,m,n);
 setlength(y,m);
  for i:=1 to m do
    for j:=1 to n do
  begin
  write('x[',i,',',j,']:=');
  readln(x[i,j]);
  end;
  for i:=1 to m  do
    begin
        for j:=1 to n do
        begin
        if  x[i,j]>k  then
        begin
        k:=x[i,j];
        y[m]:=k;
        end;
        end;
        end;
    for i:=1 to m do
    write(y[m], '  ');
    readln;
    end.

Заранее спасибо!

@bormant · 02.12.2018, 15:40

Pascal

1	for i:=0 to m-1 do for j:=0 to n-1 do Read(a[i,j]); ReadLn;

Осталось неясно, что в Turbo Pascal забыли.
Тему в Free Pascal переносить или еще куда?

@ETHERNALL · 02.12.2018, 17:00 **[ТС]**

Ой, да))
Перепутал)
Во Free Pascal перенесите пжл)

Добавлено через 15 минут
Не помогло, все ранво вылетает с exitcode 201, когда ввожу последний элемент

@volvo · 02.12.2018, 17:54

Сообщение от ETHERNALL

когда ввожу последний элемент

Когда вводишь последний элемент, или когда пытаешься обработать значения в массиве циклами от 1 до n и от 1 до m? В циклах в 18, 20 и 29 строках тоже поменял границы?

@ETHERNALL · 02.12.2018, 18:43 **[ТС]**

Да поменял
Все заработало.
просто в последнем цикле где выводится другой массив вместо y[m] надо y[i]

Добавлено через 1 минуту
[

Pascal

const
m=3;
n=3;
var
x:array of array of real;
y:array of real;
i,j:integer;
k:real;
 begin
 setlength(x,m,n);
 setlength(y,m);
  for i:=0 to m-1 do
    for j:=0 to n-1 do
  begin
  write('a[',(i+1),',',(j+1),']:=');
    readln(x[i,j]);
    end;
    writeln('Матрица');
    for i:=0 to n-1 do
    begin
        for j:=0 to m-1 do
        write(x[i,j]:3:1,' ');
        writeln;
                end;
         for i:=0 to m-1  do
            begin
           for j:=0 to n-1 do
        begin
        if  x[i,j]>k  then
        begin
        k:=x[i,j];
        y[i]:=k;
        end;
        end;
        end;
        writeln('Наибольшее значение в каждом столбце  ');
    for i:=0 to m-1 do
    write(y[i]:4:2, '  ');
    readln;
    end.

Вот так типо все работает

@ETHERNALL 0 / 0 / 0 Регистрация: 11.11.2018 Сообщений: 24
	02.12.2018, 17:00 [ТС]	3
	Ой, да)) Перепутал) Во Free Pascal перенесите пжл) Добавлено через 15 минут Не помогло, все ранво вылетает с exitcode 201, когда ввожу последний элемент 0

@volvo Супер-модератор 32835 / 21172 / 8148 Регистрация: 22.10.2011 Сообщений: 36,431 Записей в блоге: 8
	02.12.2018, 17:54	4
	Сообщение от ETHERNALL когда ввожу последний элемент Когда вводишь последний элемент, или когда пытаешься обработать значения в массиве циклами от 1 до n и от 1 до m? В циклах в 18, 20 и 29 строках тоже поменял границы? 0

	02.12.2018, 18:43