Const
n = 4;
var
a: array[1..n, 1..n] of integer;
i, j: integer;
begin
for i := 1 to n * n do
a[i mod n + 1, (i-1) div n + 1] := random(10);
for i := 1 to n do
begin
writeln();
for j := 1 to n do
begin
if i = j then a[i, j] := 0;
write(a[i, j]:3);
end;
end;
end.
59.Ответ:26,все что смог!
Ответ:
Восстановить аккаунт по электронной почте.
Объяснение:
Имея доступ к электронке вы можете поменять пароль
Var n,i:integer;
begin
readln(n);
for i:=0 to n do
writeln('3 * ',i,' = ',3*i);
end.