В задаваемом вещественном векторе - Pascal
Формулировка задачи:
В задаваемом вещественном векторе a размерности n>5:
1) Найти значение и индекс последнего минимального элемента.
2) Количество положительных компонент вектора, предшествующих первой отрицательной компоненте.
Решение задачи: «В задаваемом вещественном векторе»
textual
Листинг программы
uses crt; var a:array[1..100] of real; n,i,imn,i1,k:integer; mn:real; begin repeat write('Введите размер массива от 6 до 100 n='); readln(n); until n in [6..100]; randomize; writeln('Исходный массив'); i1:=0; for i:=1 to n do begin a[i]:=-5+10*random; write(a[i]:5:1); if i=1 then begin mn:=a[i]; imn:=i; end else if a[i]<=mn then begin mn:=a[i]; imn:=i; end; if(i1=0)and(a[i]<0) then i1:=i; end; writeln; writeln('Последний минимальный элемент=',mn:0:1,' его индекс=',imn); writeln('Индекс первого отрицательного элемента=',i1); k:=0; if i1>1 then for i:=1 to i1-1 do if a[i]>0 then k:=k+1; writeln('Количество положительных до первого отрицательного=',k) end.
Объяснение кода листинга программы
- Подключаем модуль для работы с консолью
uses crt;
- Объявляем переменные:
a:array[1..100] of real;
- вещественный массив размером 100 элементов;n,i,imn,i1,k:integer;
- целочисленные переменные n, i, imn, i1, k;mn:real;
- переменная с плавающей запятой mn.
- Просим пользователя ввести размер массива от 6 до 100 и сохраняем в переменную n.
- Генерируем случайные числа для заполнения массива a.
- Выводим сообщение
Исходный массив
. - Создаем цикл для заполнения массива a случайными числами от -5 до 5 и выводим их на экран.
- В цикле определяем минимальный элемент mn и его индекс imn.
- Находим индекс первого отрицательного элемента i1.
- Выводим на экран последний минимальный элемент и его индекс, а также индекс первого отрицательного элемента.
- Подсчитываем количество положительных чисел в массиве до первого отрицательного. Этот код генерирует массив случайных чисел, находит минимальный элемент и его индекс, а также определяет индекс первого отрицательного элемента и количество положительных элементов до него.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д