Составьте, пожалуйста, на Паскале программы. Дам 50 баллов!!!
1. Вывести на экран матрицу 5х5. Определить сумму минимальных элементов столбцов матрицы.
2. Сформировать матрицу вида:
1 0 1 0 1
0 1 0 1 0
1 0 1 0 1
0 1 0 1 0
1 0 1 0 1
1. Вывести на экран матрицу 5х5. Определить сумму минимальных элементов столбцов матрицы.
2. Сформировать матрицу вида:
1 0 1 0 1
0 1 0 1 0
1 0 1 0 1
0 1 0 1 0
1 0 1 0 1
More Questions From This User See All
Answers & Comments
const
n=5;
var
a:array [1..n,1..n] of integer;
i,j,min,sum:integer;
begin
sum:=0;
for j:=1 to n do
begin
min:=20;
for i:=1 to n do
begin
a[i,j]:=random(21)-10;
if min>a[i,j] then
min:=a[i,j];
end;
sum:=sum+min;
end;
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:4);
writeln;
end;
writeln('sum min:',sum);
min:=1;
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=min;
if min = 1 then
min:=0
else
min:=1;
write(a[i,j]:4);
end;
writeln;
end;
end.
Если моё решение помогло вам, отметьте его лучшим. Спасибо!