В задаваемом вещественном векторе - Pascal

Формулировка задачи:

В задаваемом вещественном векторе a размерности n>5: 1) Найти значение и индекс последнего минимального элемента. 2) Количество положительных компонент вектора, предшествующих первой отрицательной компоненте.

Код к задаче: «В задаваемом вещественном векторе - Pascal»

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.

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

15   голосов, оценка 3.933 из 5


СОХРАНИТЬ ССЫЛКУ