Паскаль. Дан массив вещественных чисел В(20), заданной случайным образом в диапазоне от -65 до 90. Найти частное максимального на мин
Ответы
Ответ дал:
0
var b: array [1..20] of real;
i: integer;
max,min: real;
begin
for i:=1 to 20 do b[i]:=random(156)-65;
max:=b[1];
min:=b[1];
for i:=2 to 20 do begin
if min>b[i] then min:=b[i] else
if max<b[i] then max:=b[i];
end;
writeln('Частное максимального ',max,' на ',min,' - ',max/min);
end.
Вас заинтересует
1 год назад
2 года назад
7 лет назад
7 лет назад
8 лет назад