Заменить нулями минимальный и максимальный элементы массива

@demaloty · Регистрация: 29.12.2014

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

заполнить массив случайными числами от -10 до 10 заменить нулями мин и макс элементы

@CodeR · 09.10.2015, 09:45

Pascal

Const n=10;
Var A:array[1..n] of integer;
    i,imax,imin:integer;
Begin
    Randomize;
    writeln('Исходный массив');
    imax := 1; imin := 1;
    For i:=1 to n do
    Begin
      A[i] := random(21) - 10;
      write(A[i]:4);
      if A[i] > A[imax] then imax := i;
      if A[i] < A[imin] then imin := i;
    End;
    writeln;
    writeln('Max = ', A[imax]);
    writeln('Min = ', A[imin]);
    For i:=1 to n do
     if ((A[imax] = A[i])and( i <> imax))
      or((A[imin] = A[i])and( i <> imin)) then A[i]:=0;
    A[imax] := 0;
    A[imin] := 0;
    writeln('Полученный массив');
    For i:=1 to n do
     write(A[i]:4);
    readln;
End.

@demaloty 0 / 0 / 0 Регистрация: 29.12.2014 Сообщений: 12
		1
	Заменить нулями минимальный и максимальный элементы массива 08.10.2015, 22:01. Показов 4321. Ответов 1 Метки нет (Все метки) заполнить массив случайными числами от -10 до 10 заменить нулями мин и макс элементы 0

	09.10.2015, 09:45

Заменить нулями минимальный и максимальный элементы массива

Решение