Заменить все отрицательные элементы массива на максимальный элемент массива

@ratoron · Регистрация: 29.05.2018

Дан одномерный массив из N элементов. Заменить все его отрицательные элементы на максимальный элемент массива

@JuriiMW · 29.05.2018, 12:18

Pascal

var a:array [1..10] of Integer;
 i,max:Integer;
begin
  Randomize;
  for i:=1 to 10 do a[i]:=Random(21)-10;
  for i:=1 to 10 do Write(a[i]:3);WriteLn;
  max:=1; for i:=2 to 10 do if a[i]>a[max] then max:=i;
  for i:=1 to 10 do if a[i]<0 then a[i]:=a[max];
  for i:=1 to 10 do Write(a[i]:3);WriteLn;
end.

Добавлено через 1 минуту
Ну или так, совмещаем приятное с полезным:

Pascal

var a:array [1..10] of Integer;
 i,max:Integer;
begin
  Randomize;
  max:=1; for i:=1 to 10 do begin a[i]:=Random(21)-10;Write(a[i]:3);end;WriteLn;
  for i:=1 to 10 do begin if a[i]<0 then a[i]:=a[max];Write(a[i]:3);end;WriteLn;
end.

@ratoron 0 / 0 / 0 Регистрация: 29.05.2018 Сообщений: 2
		1
	Заменить все отрицательные элементы массива на максимальный элемент массива 29.05.2018, 12:11. Показов 3651. Ответов 1 Метки нет (Все метки) Дан одномерный массив из N элементов. Заменить все его отрицательные элементы на максимальный элемент массива 0

Опции темы

Заменить все отрицательные элементы массива на максимальный элемент массива

Решение