Вопрос по информатике:
Заполните линейный массив из 14 элементов случайными целыми числами с помощью функции случайного числа из интервала от -20 до -8. Вывести его в одну строку. Найти в массиве на минимальный элемент , на какой позиции он стоит в массиве.
Пожаловаться
- 25.06.2018 17:01
- Информатика
- remove_red_eye 14507
- thumb_up 20
Ответы и объяснения 1
Var
min, i,position:integer;
a:array [1..14] of integer;
begin
for i:=1 to 14 do begin
a [i]:=Random (-20,-8);
end;
min:=a[1];
position:=1;
for i:=2 to 14 do begin
if (a[i] < min) then
begin
min:=a[i];
position:=i;
end;
end;
write ('Массив ');
for i:=1 to 14 do begin
write (a [i]);
write (' ');
end;
writeln(' ');
writeln ('Минимальный элемент находится на позиции: ', position);
writeln ('Минимальный элемент равен: ', min);
end.
min, i,position:integer;
a:array [1..14] of integer;
begin
for i:=1 to 14 do begin
a [i]:=Random (-20,-8);
end;
min:=a[1];
position:=1;
for i:=2 to 14 do begin
if (a[i] < min) then
begin
min:=a[i];
position:=i;
end;
end;
write ('Массив ');
for i:=1 to 14 do begin
write (a [i]);
write (' ');
end;
writeln(' ');
writeln ('Минимальный элемент находится на позиции: ', position);
writeln ('Минимальный элемент равен: ', min);
end.
Пожаловаться
- 26.06.2018 02:06
- thumb_up 35
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы