Помогите сделать в паскале! Дан массив, содержащий 70 целых чисел. Опишите на одном из языков программирования эффективный алгоритм, позволяющий найти и вывести наибольшую разность двух чисел, содержащихся в массиве.
Помогите сделать в паскале! Дан массив, содержащий 70 целых чисел. Опишите на одном из языков
программирования эффективный алгоритм, позволяющий найти и вывести наибольшую
разность двух чисел, содержащихся в массиве.
Гость
Ответ(ы) на вопрос:
Гостьvar
i,min,max:integer;
a:array[1..70]of integer;
begin
for i:=1 to 70 do
begin
a[i]:=random(100);
write(a[i],' ');
if i=1 then min:=a[i]
else if a[i]max then max:=a[i];
end;
writeln;
writeln('Ответ: ',max-min);
end.
Не нашли ответ?
Похожие вопросы