// PascalABC.NET 3.1, сборка 1250 от 28.05.2016 begin var a:=MatrixRandom(3,2,-99,99); Writeln('Массив А'); for var i:=0 to 2 do begin for var j:=0 to 1 do Write(a[i,j]:4); Writeln end; var b:=MatrixRandom(3,2,-99,99); Writeln('Массив B'); for var i:=0 to 2 do begin for var j:=0 to 1 do Write(b[i,j]:4); Writeln end; var c:array[0..2,0..1] of real; Writeln('Результирующий массив'); for var i:=0 to 2 do begin for var j:=0 to 1 do begin c[i,j]:=a[i,j]*b[i,j]/10; Write(c[i,j]:7:1) end; Writeln end end.
Тестовое решение Массив А -91 -93 -62 9 -97 6 Массив B -64 18 57 -34 -65 -30 Результирующий массив 582.4 -167.4 -353.4 -30.6 630.5 -18.0
#include <iostream>
#include <string>
#include <conio.h>
#define ESC 27
using namespace std;
int main() {
char ch;
int sum = 0;
do {
ch = _getch();
if (ch == ESC) {
cout << "Output of the program:\n" << sum;
putchar('\n');
} else {
cout << ch;
sum += (int)ch;
putchar('\n');
}
} while (ch != ESC);
system("pause");
return 0;
}
Объяснение:
begin
var a:=MatrixRandom(3,2,-99,99);
Writeln('Массив А');
for var i:=0 to 2 do begin
for var j:=0 to 1 do Write(a[i,j]:4);
Writeln
end;
var b:=MatrixRandom(3,2,-99,99);
Writeln('Массив B');
for var i:=0 to 2 do begin
for var j:=0 to 1 do Write(b[i,j]:4);
Writeln
end;
var c:array[0..2,0..1] of real;
Writeln('Результирующий массив');
for var i:=0 to 2 do begin
for var j:=0 to 1 do begin
c[i,j]:=a[i,j]*b[i,j]/10; Write(c[i,j]:7:1)
end;
Writeln
end
end.
Тестовое решение
Массив А
-91 -93
-62 9
-97 6
Массив B
-64 18
57 -34
-65 -30
Результирующий массив
582.4 -167.4
-353.4 -30.6
630.5 -18.0