Если последний элемент массива отрицательный, то заменить его max значением среди всех положительных элементов

@Никитос1998 · Регистрация: 04.12.2016

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

Ввести массив вещественных чисел В(n). Если последний элемент массива отрицательный, то заменить его max значением среди всех положительных элементов. Иначе – сделать сообщение. Массив распечатать.

@Joy · 05.12.2016, 08:50

Pascal

const n=10;
var
  b:array[1..n] of real;
  s:real;
  i,j:integer;
begin
  write('Введите ',n,' элементов массива:');
  s:=-1;
  for i:=1 to n do begin
    read(b[i]);
    if (b[i]>=0) and (b[i]>s) then s:=b[i];
  end;
  if b[n]<0 then 
    if s<0 then writeln('В исходном массиве отсутствуют положительные числа!') else begin
      b[n]:=s;
      write('полученный массив:');
      for i:=1 to n do write(b[i]:0:2,' ');    
   end else writeln('последний элемент массива не отрицательное число!');
end.

@Никитос1998 0 / 0 / 0 Регистрация: 04.12.2016 Сообщений: 4
		1
	Если последний элемент массива отрицательный, то заменить его max значением среди всех положительных элементов 04.12.2016, 15:26. Показов 1343. Ответов 1 Метки нет (Все метки) Ввести массив вещественных чисел В(n). Если последний элемент массива отрицательный, то заменить его max значением среди всех положительных элементов. Иначе – сделать сообщение. Массив распечатать. 0

	05.12.2016, 08:50

Опции темы

Если последний элемент массива отрицательный, то заменить его max значением среди всех положительных элементов

Решение