Напишите программу , которая в последовательности 9-ти целых чисел определяет разницу наибольшего и наименьшего чесл
Ответы на вопрос
Ответил pokemanbr
0
program primer;
var
n,max,min,i:integer;
begin
for i:=1 to 9 do begin
readln(n);
if(i=1) then begin
max:=n;
min:=n;
end;
if(n>max) then max:=n;
if(n<min) then min:=n;
end;
writeln(max-min);
end.
var
n,max,min,i:integer;
begin
for i:=1 to 9 do begin
readln(n);
if(i=1) then begin
max:=n;
min:=n;
end;
if(n>max) then max:=n;
if(n<min) then min:=n;
end;
writeln(max-min);
end.
Ответил cavani508p78lmx
0
Можешь помочь еще 1 задачей , пожалуйста? Я ее тоже вывесил ; 10 баллов
Ответил cavani508p78lmx
0
https://znanija.com/task/28674854
Новые вопросы