Помогите решить в паскале:
Замените элементы 1-ой строки матрицы элементами равными 1.
Ответы на вопрос
Ответил nastikots
0
Ответ:
program z1;
const n=5;
var a:array [1..n,1..n] of integer;
i,j,s:integer;
begin
writeln ('Матрица:');
for i:= 1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=Random(10);
write(a[i,j]:3)
end;
writeln
end;
writeln;
writeln ('Матрица:');
for i:= 1 to n do
begin
for j:=1 to n do
begin
if i = 1 then a[i,j]:=1;
write(a[i,j]:3)
end;
writeln
end
end.
Объяснение:
Задаём матрицу и выводим на экран
Если i (номер строки) = 1, то элемент становится равным 1
Выводим на экран
Ответил BobbyFresnel
0
##
var (m, n) := ReadInteger2('Число строк и столбцов:');
var A := MatrRandom(m, n, -99, 99);
A.Println(4);
Writeln;
A.SetRow(0, |1| * n);
A.Print(4)
Приложения:
Новые вопросы