Вопрос по информатике:
Прошу, помогите с программой. Баллами не обижу. 10кл
Дан массив заданный датчиком случайных чисел в интервале [-50;130]. Определить, минимальный и максимальный элемент массива.
- 10.09.2018 20:54
- Информатика
- remove_red_eye 11221
- thumb_up 41
Ответы и объяснения 1
Const n=20;
var x : array[1..n] of integer;
i, max, min : integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
x[i]:=random(181)-50;
write(x[i],' ');
end;
writeln;
max:=x[1]; min:=x[1];
for i:=2 to n do
begin
if x[i] > max then max:=x[i];
if x[i] < min then min:=x[i];
end;
writeln('max=',max,' min=',min);
end.
Пример:
Исходный массив:
-34 -23 -38 15 108 21 -25 -29 15 -34 34 8 20 76 -27 -43 -17 89 95 -28
max=108 min=-43
- 11.09.2018 04:58
- thumb_up 34
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.