Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

срс №4

.pas
Скачиваний:
0
Добавлен:
24.12.2018
Размер:
1.32 Кб
Скачать
Program Umnoj2;
Const Max=50;
Var AA,BB,CC: array [1..Max,1..Max] of Double;
ii,jj,kk,nn,mm,ll : integer; Summa: double;
begin
writeln ('Добуток елементів двох двовимірних масивів A i B');
write('Введіть число рядків 1-го масиву - A (<=50)--> ');readln(NN);
write('Введіть число стопчиків 1-го масиву - A (<=50)--> ');readln(KK);
write('Введіть число стовпчиків 2-го масиву - B (<=50)--> ');readln(MM);
writeln('Введіть перший масив (A):');
for ii:=1 to nn do
for jj:=1 to kk do
begin
write('Введіть A[',ii,',',jj,'] --> ');
readln(AA[ii,jj]);
end;

writeln('Введіть другий масив (B):');
for ii:=1 to kk do
for jj:=1 to mm do
begin write('Введіть B[',ii,',',jj,'] --> '); readln(BB[ii,jj]);
end;
for ii:=1 to nn do
for jj:=1 to mm do
begin
Summa:= 0;
for ll:= 1 to kk do
Summa:= Summa + AA[ii,ll]*BB[ll,jj];
CC[ii,jj] := Summa;
end;
writeln('---- Результат: -----');
for ii:=1 to nn do
begin
for jj:=1 to mm do
write(CC[ii,jj]:8:2);
writeln;
end;
readln;
end.
Соседние файлы в предмете Информатика