Предмет: Информатика,
автор: yourmajestyswan
информатика 10 класс, 100 баллов
Приложения:
Ответы
Автор ответа:
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.
Приложения:
Похожие вопросы
Предмет: Химия,
автор: gulyamovashakhnoza
Предмет: Литература,
автор: enotovaenotovauliya
Предмет: Другие предметы,
автор: polinavse02
Предмет: Биология,
автор: Неми
Предмет: Литература,
автор: yliya200415