Текст программы
program
umnogenie;
uses
crt;
var
m:array [1..100,1..100] of integer;
a:array
[1..100] of integer;
b:array
[1..100] of real;
i,j,n,max,imax,jmax:integer;
begin
randomize;
n:=3;
for
i:=1 to n do
begin
for
j:=1 to n do
begin
m[i,j]:=random(200);
write(m[i,j],'
');
end;
writeln;
end;
for
i:=1 to n+5 do
begin
a[i]:=random(10);
write(a[i]:3,'
');
end;
max:=m[1,1];
imax:=1;
jmax:=1;
for
i:=1 to n do
for
j:=1 to n do
if
m[i,j]>max then
begin
max:=m[i,j];
imax:=i;
jmax:=j;
end;
writeln('Максимальный
элемент массива m','[',imax,',',jmax,']=',max);
if
imax=jmax then
for
i:=1 to n+5 do
begin
b[i]:=a[i]*10;
write(b[i],'
');
end
else
for
i:=1 to n+5 do
begin
b[i]:=a[i]*0.5;
write(b[i],'
');
end;
readln;
end.
Тестирование
Путем
рандомизации задается квадратная
матрица(двух мерный массив), также
задается ряд последовательности чисел
(одномерный массив), если наибольший
элемент квадратной матрицы лежит на
главной диагонали, то каждый элемент
последовательности(одномерный массив)
домножается на 10, во всех остальных
случаях на 0.5
1:
74
93 197
76 198
72
65 124
9
1
8 2 1 0 3 7 2 Максимальный
элемент массива m[2,2]=198
10
80 20 10 0 30 70 20
