Найти минимальный положительный элемент вектора, расположенный до первого 0

@pollTax · Регистрация: 07.10.2016

Дан целочисленный вектор.Найти минимальный положительный элемент,расположенный до первого 0.(Pascal)

@Puporev · 08.10.2016, 10:53

Pascal

const nmax=100;
      k=5;
var a:array[1..nmax] of integer;
    n,i,z:byte;
    mn:integer;
begin
randomize;
repeat
write('Размер вектора от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
writeln('Вектор');
z:=0;
for i:=1 to n do
 begin
  a[i]:=-k+random(2*k+1);
  write(a[i]:4);
  if(a[i]=0)and(z=0)then z:=i;
 end;
writeln;
if z=0 then write('В векторе нет 0')
else if z=1 then write('До первого 0 элементов нет')
else
 begin
  mn:=k+1;
  for i:=1 to z-1 do
  if(a[i]>0)and(a[i]<mn) then mn:=a[i];
  if mn=100 then write('До первого 0 нет положительных элементов')
  else write('Минимальный положительный элемент до  первого 0=',mn);
 end;
end.

@pollTax 0 / 0 / 0 Регистрация: 07.10.2016 Сообщений: 22
		1
	Найти минимальный положительный элемент вектора, расположенный до первого 0 08.10.2016, 00:12. Показов 929. Ответов 1 Метки нет (Все метки) Дан целочисленный вектор.Найти минимальный положительный элемент,расположенный до первого 0.(Pascal) __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

Найти минимальный положительный элемент вектора, расположенный до первого 0

Решение