в одномерном массиве А(10) найти значение и индекс наименьшего из положительных элементов .решение паскаль
5-9 класс
|
Selenafaramc
25 апр. 2015 г., 3:38:55 (9 лет назад)
Lizv2812
25 апр. 2015 г., 4:33:07 (9 лет назад)
const n = 10;
var i: byte;
min: real;
imin: integer;
a: array[1..n] of real;
begin
writeln('Введите числа');
for i := 1 to n do
read(a[i]);
min := a[1];
for i := 2 to n do
if min > a[i] then min := a[i];
for i := 1 to n do
if a[i] = min then
imin := i;
writeln('Минимальное значение = ', min);
writeln('Элемент = ', imin);
end.
Ответить
Другие вопросы из категории
Информатика. Тема: Оператор ветвления на Паскале
Задача
из 4 величин определить наименьшее
решать типо:
Program ...
begin
readln и т.д.
Читайте также
В одно мерном массиве А(10) найти количество положительных и отрицательных элементов
Программа сделана правильно,но как только ее хочешь запустить там пишет "введите длину массива"какое число нужно вводить?
Дан целочисленный массив из 20 элементов элементы могут принимать значения -1000 до 1000 позволяет найти и вывести минимальные значения среди элементов
массива которые имеют четные значения и не делятся на 3
Вы находитесь на странице вопроса "в одномерном массиве А(10) найти значение и индекс наименьшего из положительных элементов .решение паскаль", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.