Заполнить матрицу из 7 строк и 7 столбцов случайными числами в интервале [-10;10] и...

Question

Заполнить матрицу из 7 строк и 7 столбцов случайными числами в интервале [-10;10] и вывести на экран. Обнулить элементы отмеченный зеленым фоном и вывести полученную матрицу на экран.

---

Answer 1

Program Pr1;
uses crt;
var mas:array[1..7,1..7] of real;
var i,j,v:integer;
Begin
clrscr;
v:=7;
randomize;
for i:=1 to 7 do
for j:=1 to 7 do mas[i,j]:= random(20)-10;
for i:=1 to 7 do begin
for j:=v to 7 do mas[i,j]:=0;
v:=v-1;
end;
for i:=1 to 7 do
for j:=1 to 7 do begin
gotoxy(j,i);
write(mas[i,j]);
end;
end.