В одномерном массиве найти максимальные элементы и все элементы равные максимальному заменить на 0.

@TR0JlNk · Регистрация: 21.02.2012

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

в одномерном массиве А состоящем из N элементов найти максимальные элементы и все элементы равные максимальному заменить на 0.

@ermolay · 24.03.2012, 22:21

Pascal

  const
    nmax=100;
  var
    a: array[1..nmax] of byte;
    i,max,n: byte;
begin
  max:=0;
  write('vvedite chiso N: '); readln(n);
 
  randomize;
  writeln;
  writeln('ishodnii massiv:');
  for i:=1 to n do
  begin
    a[i]:=random(9)+1;
    write(a[i],' ');
    if a[i]>max then max:=a[i];
  end;
  writeln;
  writeln('maksimalnoe chislo: ',max);
 
  writeln; writeln('poluchennii massiv:');
  for i:=1 to n do
  begin
    if a[i]=max then a[i]:=0;
    write(a[i],' ');
  end;
  readln;
end.

@TR0JlNk 0 / 0 / 0 Регистрация: 21.02.2012 Сообщений: 36
		1
	В одномерном массиве найти максимальные элементы и все элементы равные максимальному заменить на 0. 24.03.2012, 22:13. Показов 1979. Ответов 1 Метки нет (Все метки) в одномерном массиве А состоящем из N элементов найти максимальные элементы и все элементы равные максимальному заменить на 0. 0

	24.03.2012, 22:21

Опции темы

В одномерном массиве найти максимальные элементы и все элементы равные максимальному заменить на 0.

Решение