Помогите пожалуйстаа!)))) заполнить массив из 10 элементов случайными числами из интервала от -10 до 10 вывести на экран а затем
Помогите пожалуйстаа!)))) заполнить массив из 10 элементов случайными числами из интервала от -10 до 10 вывести на экран а затем увеличить каждый элемент массива на 1 и повторно вывести на экран
Uses crt; var i,j,m,n:integer; a: array [1..200,1..200] of integer; begin clrscr; writeln('введи размерность массива (кол-во столбцов и строк)'); readln (n,m); for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random (21)-10; write (a[i,j]:4); end; writeln; end; writeln; for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=a[i,j]+1; write (a[i,j]:4); end; writeln; end; readln; end.