Даны 7 чисел.Найти максимальное из них. На экран вывести разность между большим и всеми исходными числами. СРОЧНО ПОМОГИТЕ ПО ИНФОРМАТИКЕ
Ответы
Ответ дал:
0
Program test;
Var
n, j, max: integer;
Numb: array[1..7] of integer;
Begin
max := Numb[1];
n := 1;
for j:=2 to 7 do
begin
if count[j]>max then
begin
max := count[j];
n:=j;
end;
end;
for j:=2 to 7 do writeln ('j= ', max-count[j]);
end;
end.
Var
n, j, max: integer;
Numb: array[1..7] of integer;
Begin
max := Numb[1];
n := 1;
for j:=2 to 7 do
begin
if count[j]>max then
begin
max := count[j];
n:=j;
end;
end;
for j:=2 to 7 do writeln ('j= ', max-count[j]);
end;
end.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
9 лет назад
9 лет назад
9 лет назад