Все элементы вектора, предшествующие первому наименьшему элементу, умножить на 10 при выполнении заданного условия

@shbn · Регистрация: 07.10.2012

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

1. Дан вектор A(n). Все элементы вектора, предшествующие первому наименьшему элементу умножить на 10, если элемент минимальный по величине встречается в векторе более одного раза. В противном случае вектор оставить без изменения.

@CodeR · 24.10.2012, 14:25

Pascal

Var A:array[1..100] of integer;
    i,imin,n,k:byte;
Begin
    write('Введите размерность: ');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;
    For i:=1 to n do
     if A[i]=A[imin] then inc(k);
    writeln;
    if k>1 then 
    Begin
      For i:=1 to imin-1 do
       A[i]:=A[i]*10;
      writeln('Преобразованный массив');
      For i:=1 to n do
       write(A[i]:4);
    End;
    readln;
End.

@shbn 0 / 0 / 0 Регистрация: 07.10.2012 Сообщений: 20
		1
	Все элементы вектора, предшествующие первому наименьшему элементу, умножить на 10 при выполнении заданного условия 23.10.2012, 21:23. Показов 2752. Ответов 1 Метки нет (Все метки) 1. Дан вектор A(n). Все элементы вектора, предшествующие первому наименьшему элементу умножить на 10, если элемент минимальный по величине встречается в векторе более одного раза. В противном случае вектор оставить без изменения. 0

	24.10.2012, 14:25

Опции темы

Все элементы вектора, предшествующие первому наименьшему элементу, умножить на 10 при выполнении заданного условия

Решение