Бонифатиевич
6 год назад
На 6 строке выдает нельзя считывать данные этого типа
Program Pro;
var
i,a,b,c,d:integer;
M:array[,,,,] of integer;
begin;
Readln(SetLength(M,i,a,b,c,d));
for i: = 0 to SetLength(M,i,a,b,c,d) do
for a: = 0 to SetLength(M,i,a,b,c,d) do
for b: = 0 to SetLength(M,i,a,b,c,d) do
for c: = 0 to SetLength(M,i,a,b,c,d) do
for d: = 0 to SetLength(M,i,a,b,c,d) do
Readln(M[i,a,b,c,d]);
Writeln(M);
end.
ОТВЕТЫ
Seaschily
Aug 7, 2019
Слушай ты задаешь ппограмму с помощью команды integer, а она в свое время работает толлько для натуральных чисел поэтому и выдает ошибку. для того чтобы исправить замени ее на real должно получиться
240
Смежные вопросы:
