program z_array; uses crt; var a:array[1..100,1..100] of integer; m,n,i,j:byte; sum:integer; begin clrscr; writeln('Введите количество строк матрицы'); readln(n); writeln('Введите количество столбцов матрицы'); readln(m); writeln('Введите элементы матрицы'); for i := 1 to n do for j := 1 to m do begin write('a[',i,',',j,'] = '); readln(a[i,j]); end; writeln('Данная матрица'); writeln; sum := 0; for i := 1 to n do begin for j := 1 to m do begin write(a[i,j]:5); if (j < i) then sum := sum + a[i,j]; end; writeln; writeln('Искомая сумма = ',sum); readln; end.
1)2^2=4
2)как я понимаю, это некоторые типы имеющие ключ и значение в одной связке. Набор таких пар будет словарем
3)не знаю какие из них дополнительные.
*сложности языка, падежи, окончания,времена
*пордок слов в предложениее
*контекстный или литературный перевод, чтоб не терялось значение написаного
4)подразумевается электронный переводчик?
все перечисленное в п3, человек то может а машина нет
5)потому что это рисунок, а не текст
6)перевод картинки в текстовую информацию, если этот текст там конечно есть
program z_array;
uses crt;
var a:array[1..100,1..100] of integer;
m,n,i,j:byte;
sum:integer;
begin
clrscr;
writeln('Введите количество строк матрицы');
readln(n);
writeln('Введите количество столбцов матрицы');
readln(m);
writeln('Введите элементы матрицы');
for i := 1 to n do
for j := 1 to m do
begin
write('a[',i,',',j,'] = ');
readln(a[i,j]);
end;
writeln('Данная матрица');
writeln;
sum := 0;
for i := 1 to n do
begin
for j := 1 to m do
begin
write(a[i,j]:5);
if (j < i) then
sum := sum + a[i,j];
end;
writeln;
writeln('Искомая сумма = ',sum);
readln;
end.