Дан массив из 8 целочисленных элементов. Элементы вводятся с клавиатуры (все элементы
5-9 класс
|
различны). Найти минимальный элемент численного массива и его порядковый номер.
program n1;
var a:array[1..8] of integer;
min,i:integer;
begin
writeln('Введите массив из 8 целочисленных элементов:');
read(a[1]);
min:=1;
for i:=2 to 8 do
begin
read(a[i]);
if a[i]<a[min] then min:=i;
end;
writeln('Минимальный элемент данного массива: ',a[min]);
writeln('Его порядковый номер: ',min);
end.
Другие вопросы из категории
Решите задачу с помощью рассуждения (рассуждения присылать тоже)
Задача: В одном доме живут 3 товарища: Вася, Боря и Дима.
Один из них играет в футбол, другой пишет стихи, а третий лучше всех играет в шахматы.
Известно : 1-ВАсин друг с огорчением сказал "Вчера я не сумел реализировать пинальти" 2-товарищ поэта сказал" Дима! Написал бы и ты что нибудь и для нашей футбольной команды"
Назовите имена футболиста, шахматиста, поэта (с рассуждением)
пройти 10 метров вперед
повернуть на 90 градусов по часовой стрелке
Читайте также
2). Дан массив из n элементов. Написать программу подсчитывающую произведение элементов массива.
таких членов.
2.Дан массив из 10 элементов. Найти количество элементов с четными индексами.
3.Дан массив из 10 элементов. Найти наибольший элемент массива.
Задан массив из N вещественных чисел,которые вводятся с клавиатуры. Отрицательные элементы уменьшить на 5, остальные заменить их номерами.Я ввела эту задачу в паскале и у меня требует ввод данных, что мне писать
Задан массив из N вещественных чисел,которые вводятся с клавиатуры. Отрицательные элементы уменьшить на 5, остальные заменить их номерами.