В векторе У(m) поменять местами максимальный и минимальный элементы

@Асочка · Регистрация: 18.05.2014

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

В векторе У(m) поменять местами максимальный и минимальный элементы. Определить, кратна ли сумма элементов вектора У числу пять.

@CodeR · 18.05.2014, 14:57

Pascal

Const m=10;
Var Y:array[1..m] of integer;
    i,imin,imax,s,t:integer;
Begin
    For i:=1 to m do
    Begin
      Y[i]:=random(31)-15;
      write(Y[i]:4);
    End;
    writeln;
    imin:=i;imax:=i;
    For i:=2 to m do 
     if Y[i]>Y[imax] then imax:=i
      else if Y[i]<Y[imin] then imin:=i;
    writeln('Max = ',Y[imax]);
    writeln('Min = ',Y[imin]);
    t:=Y[imin];
    Y[imin]:=Y[imax];
    Y[imax]:=t;
    For i:=1 to m do
    Begin
      write(Y[i]:4);
      s:=s+Y[i];
    End;
    writeln;
    writeln('Sum = ',s)
    writeln(s mod 5 = 0 );
    readln;
End.

@Асочка 0 / 0 / 0 Регистрация: 18.05.2014 Сообщений: 6
		1
	В векторе У(m) поменять местами максимальный и минимальный элементы 18.05.2014, 14:39. Показов 1734. Ответов 1 Метки нет (Все метки) В векторе У(m) поменять местами максимальный и минимальный элементы. Определить, кратна ли сумма элементов вектора У числу пять. 0

	18.05.2014, 14:57

Опции темы

В векторе У(m) поменять местами максимальный и минимальный элементы

Решение