Ты объявила массив от 1 до 10, а в конце в цикле пытаешься обратиться к элементу с индексом 0! (for i:=0 to m do begin for j:=0 to n do) Ну и куча мелких недочетов еще тут есть
const n=5; m=6; var a:array[1..n,1..m] of integer; i,j: integer; begin writeln('Исходный массив:'); for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(10); write(a[i,j]:4); end; writeln; end; writeln('Измененный массив:'); for i:=1 to n do begin for j:=1 to m do begin if a[i,j]=0 then a[i,j]:=i+j; write(a[i,j]:4); end; writeln; end; end.
Uses crt; var b:array[1..100,1..100] of integer; r:array[1..100,1..100] of integer; str,stb,i,j:integer; Begin randomize; clrscr; Writeln('Введите количество строк : '); Read(str); Writeln('Введите количество Столбцов: '); Readln(stb); writeln; writeln('Matrica B'); For i:=1 to str do begin For j:=1 to stb do begin b[i,j]:=random(30)+1; r[i,j]:=2*b[i,j]; write(b[i,j]:3,' '); end; writeln; end; writeln; writeln('Matrica R'); for i:=1 to str do begin for j:=1 to stb do begin write(r[i,j]:3,' '); end; writeln; end; readln; end.
Запускаем , и первом делом создаём двухмерный массив Введя числа(когда программа запросит) не превышающий числа 100 (Строки и столбцы) ... после как мы ввели числа создается массив заполняя массив случайными числами в диапазоне 1..30.. И выводим Массив B, после удваиваем каждый элемент и заносим удвоенный результат в масссив R, и тоже выводим
Системное программное обеспечение