Предмет: Информатика,
автор: Антохаv
Найти частное от деления максимального на минимальный элемент массива Р(12).
Решите через паскаль , пожалуйста , срочно !!!
Ответы
Автор ответа:
0
var p: array[1..12] of integer;
begin
var min: integer;
var max: integer;
randomize;
for var i := 1 to 12 do p[i] := random(100);
min := p[1];
max := p[1];
for var i:= 1 to 12 do if p[i] < min then min := p[i];
for var i:= 1 to 12 do if p[i] > max then max := p[i];
writeln(max/min);
end.
begin
var min: integer;
var max: integer;
randomize;
for var i := 1 to 12 do p[i] := random(100);
min := p[1];
max := p[1];
for var i:= 1 to 12 do if p[i] < min then min := p[i];
for var i:= 1 to 12 do if p[i] > max then max := p[i];
writeln(max/min);
end.
Автор ответа:
0
встречено to а ожидалось ; (выбивает ошибку )
Автор ответа:
0
все
Автор ответа:
0
А если каждый раз при запуске , разный ответ , так должно быть ?
Автор ответа:
0
ну так каждый раз массив заполняется рандомными данными
Автор ответа:
0
понял , спасибо большое )))
Интересные вопросы
Предмет: Математика,
автор: nizkaya13
Предмет: Математика,
автор: 79633817071vlad
Предмет: Физика,
автор: abramovalenka
Предмет: Алгебра,
автор: kristina2796
Предмет: Математика,
автор: Алёна115