В задаваемом вещественном векторе - 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.

Объяснение кода листинга программы

  1. Подключаем модуль для работы с консолью uses crt;
  2. Объявляем переменные:
    • a:array[1..100] of real; - вещественный массив размером 100 элементов;
    • n,i,imn,i1,k:integer; - целочисленные переменные n, i, imn, i1, k;
    • mn:real; - переменная с плавающей запятой mn.
  3. Просим пользователя ввести размер массива от 6 до 100 и сохраняем в переменную n.
  4. Генерируем случайные числа для заполнения массива a.
  5. Выводим сообщение Исходный массив.
  6. Создаем цикл для заполнения массива a случайными числами от -5 до 5 и выводим их на экран.
  7. В цикле определяем минимальный элемент mn и его индекс imn.
  8. Находим индекс первого отрицательного элемента i1.
  9. Выводим на экран последний минимальный элемент и его индекс, а также индекс первого отрицательного элемента.
  10. Подсчитываем количество положительных чисел в массиве до первого отрицательного. Этот код генерирует массив случайных чисел, находит минимальный элемент и его индекс, а также определяет индекс первого отрицательного элемента и количество положительных элементов до него.

Оцени полезность:

15   голосов , оценка 3.933 из 5
Похожие ответы