информатика 10 класс, 100 баллов
Приложения:
Ответы на вопрос
Ответил Gleb1Kosyrev
0
//1 задание в приложении
//2
Var
cu:array[1..10,1..10,1..10] of integer;
i,j,k,max:integer;
begin
max:=integer.MinValue;
for i:=1 to 10 do
for j:=1 to 10 do
for k:=1 to 10 do
begin
readln(cu[i][j][k]);
if max<cu[i][j][k] then max:=cu[i][j][k];
end;
writeln(max);
end.
//2
Var
cu:array[1..10,1..10,1..10] of integer;
i,j,k,max:integer;
begin
max:=integer.MinValue;
for i:=1 to 10 do
for j:=1 to 10 do
for k:=1 to 10 do
begin
readln(cu[i][j][k]);
if max<cu[i][j][k] then max:=cu[i][j][k];
end;
writeln(max);
end.
Приложения:
Новые вопросы