сервис вопросов и ответовСформировать массив целых чисел, состоящих из 15 элементов, на промежутке [-20;20]. И найти минимальный элемент массива и его индекс.
5-9 класс|
|
Seregamax2008
09 сент. 2014 г., 8:19:59 (9 лет назад)
Yuliyatref
09 сент. 2014 г., 9:44:37 (9 лет назад)
program massiv;
var mass:array[1..15] of integer;
i,j,a:integer;
begin
j:=mass[1];
for i:=1 to 15 do begin
mass[i]:=random(40)-20;
writeln(mass[i]:3);
if mass[i]<j then begin
j:=mass[i];
a:=i;
end;
end;
writeln('mass[',a,']=',j);
end.
лылядвлда
09 сент. 2014 г., 11:41:44 (9 лет назад)
var A: array [1..15] of integer;
i, min, index: integer;
begin
min:=A[1];
for i:=1 to 15 do
begin
A[i]:=random(41)-20;
write (A[i], ' ');
end;
writeln;
for i:=1 to 15 do
begin
if min>A[i] then
begin
min:=a[i];
index:=i;
end;
end;
writeln('Минимальный элемент массива = ',min);
writeln('Его индекс = ',index);
end.
Ответить
Другие вопросы из категории
дан двумерный массив с индексами 1..10,1..10 найти сумму и произведение элементов 6-й строки
числа вводятся с клавиатуры
помогите решить пожалуйста
Зависит оценка за четверть
Сорри за качество
Помогите, пожалуйста, решить задачу.
Бабушка выслала Ивану посылку с яблоками и грушами. Некоторые из этих плодов были большими, остальные - маленькими. По цвету плоды тоже различались: часть плодов была желтого цвета, остальные - зеленого. Среди плодов не было ни маленьких, груш, ни зеленых яблок. Яблок было - 25, а груш - 17. Больших плодов было 32. Желтых плодов было 28. Зеленых яблок было на 2 больше, чем зеленых груш. Иван угостил этими плодами своих друзей. Больше всего ребятам понравились большие желтые яблоки. Сколько было таких яблок?
Читайте также
2. Определить, делится ли введенное число "а" на 3. Если делится то вывести на экран "Число делится на 3".Тип переменной определить самостоятельно. При
составлении условия учесть, что если число делится на 3, то то остаток от деления на 3 должен быть равен 0.
3. Дана программа на языке Паскаль.
var a,n,s: integer;
begin
s:=0;
n:=0;
repeat;
write('Введите число ');
readln(a);
s:=s+a;
n:=n+1;
until s>100;
writeln('Количество введенных чисел = ' ,n);
end.
Переписать программу используя цикл While.
4. Вывести на экран массив целых чисел, Состоящий из 15 элементов, значение которого из которых сгенерировано случайным образом из диапазона [20,60].
1.Дан массив целых чисел из 25 элементов. Заполнить его случайными числами до 50. Найти сумму всех четных элементов массива и их количество.
2.Дан массив целых чисел из 25 элементов. Заполнить его случайными числами от 0 до 50. Заменить все четные элементы на их квадраты, а нечетные удвоить.
1.Дан массив целых чисел, найти среднее арифметическое всех элементов массива.
2. Дан массив целых чисел,найти количество отрицательных элементов массива.
3. Дан массив целых чисел,найти количество чётных чисел в массиве.
Помогите, пожалуйста, решить задачу на языке программирования в Turbo Pascal: 1.Дан массив целых чисел, состоящий из 10 элементов.Заполнить его
с клавиатуры. Найти:
-Удвоенную сумму положительных элементов;
-вывести индексы тех элементов, значения которых больше значения предыдущего элемента(начиная со второго).
2.Определить,есть ли 2 пары соседних элементов с одинаковыми знаками.
Вы находитесь на странице вопроса "Сформировать массив целых чисел, состоящих из 15 элементов, на промежутке [-20;20]. И найти минимальный элемент массива и его индекс.", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.