Регистрация
ОСА717
05.05.2021 00:01
Информатика
Есть ответ 👍

Паскаль. дан массив вещественных чисел в(20), заданной случайным образом в диапазоне от -65 до 90. найти частное максимального на мин

119
189
Посмотреть ответы 2

Ответы на вопрос:

Кисулятв
Кисулятв
4,8(32 оценок)

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.

mirakle1
mirakle1
4,5(7 оценок)
Язык  python a  =  317 a1  =  a/100 # левый разряд a2  =  (a%100)/10 # средний разряд a3  =  (a%100)%10  #  правый разряд if  a1==a2 or a1==a3 or a2==a3:   print "есть одинаковые" else:   print  "нет одинаковых"

Популярно: Информатика