№ 1. Заполнить массив размером 5х5 случайными числами из диапазона [0;10],
затем обнулить диагональные элементы.
Вывести исходный массив и измененный.
Программа.
Uses Crt;
var A :array [1..5, 1..5] of integer;
i, j: integer;
begin
randomize; {запускает генератор случайных чисел}
for i:=1 to 5 do
for j:=1 to 5 do
a[i,j]:=random(10);
{генерируем эл-ты массива -целые числа от 0 до 10}
writeln(′ isхodniy massiv: ′);
for i:=1 to 5 do
begin
for j:=1 to 5 do
write(A[i,j], ′ ′ ); {выводим 5 эл-тов через пробел}
writeln; {переходим на новую строку}
end;
for i:=1 to 5 do
for j:=1 to 5 do
if (i=j) then A[i,j]:=0; {обнуляем диагональные элементы}
writeln(′noviy massiv′);
for i:=1 to 5 do
begin
for j:=1 to 5 do
write(A[i,j], ′ ′ );
writeln;
end;
end.