дан вектор А (N). написать программу нахождения минимального элемента вектора и его индекса. если индекс элемента парный, то часть вектора перед миним

10.10.2013, 11:15. **Показов** 1733. **Ответов** 1

Студворк — интернет-сервис помощи студентам

дан вектор А (N). написать программу нахождения минимального элемента вектора и его индекса. если индекс элемента парный, то часть вектора перед минимальным элементом обнулить.

@CodeR · 10.10.2013, 11:44

Pascal

Var A:array[1..100] of integer;
    i,imin,n:byte;
Begin
    write('N = ');readln(n);
    For i:=1 to n do
    Begin
      A[i]:=random(31)-15;
      write(A[i]:4);
    End;
    imin:=1;
    For i:=2 to n do
     if A[i]<A[imin] then imin:=i;
    writeln;
    writeln('Min = ',A[imin],' его индекс = ',imin);
    if imin mod 2 = 0  then
    Begin
      For i:=1 to imin-1 do
       A[i]:=0;
      writeln('Преобразованный');
      For i:=1 to n do
       write(A[i]:4);
    End;
    readln;
End.

Happiness123
		1
	дан вектор А (N). написать программу нахождения минимального элемента вектора и его индекса. если индекс элемента парный, то часть вектора перед миним 10.10.2013, 11:15. Показов 1733. Ответов 1 Метки нет (Все метки) дан вектор А (N). написать программу нахождения минимального элемента вектора и его индекса. если индекс элемента парный, то часть вектора перед минимальным элементом обнулить.

Опции темы

дан вектор А (N). написать программу нахождения минимального элемента вектора и его индекса. если индекс элемента парный, то часть вектора перед миним

Решение