Алгоритмы и программы. Афанасьева Т. В - 140 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

140
for j:=1 to 6 do {поиск и вывод максимального элемента}
if max<a[i,j] then
max:=a[i,j];
writeln('максимальный элемент ', max);
min:=a[1,1];
for i:=1 to 6 do
for j:=1 to 6 do
if min>a[i,j] then
min:=a[i,j]; {поиск и вывод минимального элемента}
writeln ('минимальный элемент', min);
p:=min+max; {поиск и вывод суммы}
writeln ('сумма макс. и мин. элемента ',p);
if p<0 then
begin
for i:=1 to 6 do
for j:=1 to 6 do
if (i<j) and (a[i,j]<0) then a[i,j]:=0; {замена элементов по условию}
end;
writeln('измененная матрица ');
for i:=1 to 6 do
begin
for j:=1 to 6 do {вывод измененного массива в матричной форме}
write(a[i,j]:3);
writeln;
end;
close(f);
readln;
end.
Пример 7.28. Найти произведение двух матриц а (2,3) и b (3,2).
program mas8;
uses crt;
var
a,b,c:array[1..5,1..5] of integer;
i,j,f,s:byte;
begin
writeln('Даны две матрицы
');
randomize;
for i:=1 to 2 do
for j:=1 to 3 do
a[i,j]:=random(10);
for i:=1 to 2 do
begin

Страницы