Получить ответ

Валентина program pr; const m=3; n=4; var a,b:array[1..n,1..m] of integer; i,j,s:integer; begin writeln('vvedite massiv a'); for i:=1 to n do for j:=1 to m do   readln(a[i,j]);  writeln('vvedite massiv b'); for i:=1 to n do for j:=1 to m do   readln(b[i,j]); s:=0;  for i:=1 to n do for j:=1 to m do   s:=s+sqr(a[i,j]+b[j,i]); writeln('s=',s); readln end.      11.12.12

Еva 4.9 399 отзывов Рейтинг: 121 998 6-й в Учебе и науке Общаться в чате Читать ответы

Похожие вопросы