Даны 7 чисел.Найти максимальное из них. На экран вывести разность между большим и всеми исходными числами. СРОЧНО ПОМОГИТЕ ПО ИНФОРМАТИКЕ
Answers & Comments
d514
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.
Answers & Comments
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.