Массивы

[evgenjke]

Ввести и вывести матрицу . Вычислить и вывести сколярные произведения первой строки на вторую , второй на 3-ю, 3-ей на 4-ую, а также 1-го столбца на второй , 3-ий на 4-ый. Выручите!

[QuadroX]

Готов взяться. ICQ: 323787261. Недорого.

[Гром]

Сделаю на C/C++.
Пишите ICQ 482-373-277

[Чувак]

icq: 574490825 зделаю быстро, качественно, за минимальное вознагрождение

[Google2010]

uses crt;
var
a:array[1..4,1..4] of Integer;
i,j:Integer;
r12,r23,r34,r14:Integer;
c12,c23,c34,c14:Integer;
begin
r12:=0;
r23:=0;
r34:=0;
r14:=0;
c12:=0;
c23:=0;
c34:=0;
c14:=0;
{ввод матрицы}
for i:=1 to 4 do
for j:=1 to 4 do
Readln(a[i,j]);
clrscr;
{вывод матрицы}
for i:=1 to 4 do
begin
for j:=1 to 4 do
Write(a[i,j]:6);
Writeln;
end;
for i:=1 to 4 do begin
r12:=r12+a[1,i]*a[2,i];{1 строка на 2}
r23:=r23+a[2,i]*a[3,i];{2 строка на 3}
r34:=r34+a[3,i]*a[4,i];{3 строка на 4}
r14:=r14+a[1,i]*a[4,i];{1 строка на 4}
c12:=c12+a[i,1]*a[i,2];{1 столбец на 2}
c23:=c23+a[i,2]*a[i,3];{2 столбец на 3}
c34:=c34+a[i,3]*a[i,4];{3 столбец на 4}
c14:=c14+a[i,1]*a[i,4];{1 столбец на 4}
end;
Writeln('========================== ===');
Writeln(r12);
Writeln(r23);
Writeln(r34);
Writeln(r14);
Writeln(c12);
Writeln(c23);
Writeln(c34);
Writeln(c14);
Writeln('========================== ==');
Readln;
end.

[Petrovi4]

==================== Внимание ====================
Предлагаю такого рода посты, в ветке фриланс, расценивать
как флуд, спам или мат, например, и наказывать, а то уже
доставать начинает.

[Google2010]

2Petrovi4
а вы сначала докажите что за пост №5 не уплачено ТС)

[Гром]

Существование ЛС наукой доказано.

[Google2010]

>>Существование ЛС наукой доказано.
Ну и попробуйте чего нить написать ТС в личку

[MacOSUser]

Сообщение от Google2010

2Petrovi4
а вы сначала докажите что за пост №5 не уплачено ТС)

Т.е. тс вам заплатил за то, чтобы вы ему не кинули готовый проект на мыло/в аську, а именно исходник без комментариев, сомнительного качества прям на форум в тему на всеобщий обзор? Да ладно, это недоказуемо.