Все отрицательные члены последовательности заменить наибольшим элементом

28.05.2013, 21:03. **Показов** 1561. **Ответов** 2

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

Помогите пожалуйста с заданием. буду очень благодарен.
Даны натуральное число n и последовательность целых чисел а1, а2,…,аn..Все отрицательные члены последовательности заменить наибольшим элементом. Составить блок-схему алгоритма, написать программу в паскале,результаты запуска

@JokeR.BY · 28.05.2013, 23:11

Pascal

program asdasdasdasd;
 
uses
  crt;
 
var
  mass : array of ShortInt;
  i, index, n : Byte;
begin
  Clrscr;
  Randomize;
  Write('Input size of array = ');
  Readln(n);
  SetLength(mass,n);
  Writeln('Array"s elements:');
  index := 1;
  for i := 1 to n do
  begin
    mass[i] := Random(50)-25;           //Генерация массива
    Writeln('mass[',i,']=',mass[i]);    //Вывод элементов массива
    if (mass[i] > mass[index]) then
      index := i;                       //поиск максимального элемента
  end;
  Writeln;
  Writeln;
  Writeln('New array"s elements:');
  for i := 1 to n do
  begin
    if (mass[i] < 0) then
      mass[i] := mass[index];           //проверка на "отрицательность"
    Writeln('mass[',i,']=',mass[i]);    //вывод нового массива
  end;
  Readln;
end.

29.05.2013, 00:25

JokeR.BY, Спасибо огромное) надеюсь правильно)

vlad93
		1
	Все отрицательные члены последовательности заменить наибольшим элементом 28.05.2013, 21:03. Показов 1561. Ответов 2 Метки нет (Все метки) Помогите пожалуйста с заданием. буду очень благодарен. Даны натуральное число n и последовательность целых чисел а1, а2,…,аn..Все отрицательные члены последовательности заменить наибольшим элементом. Составить блок-схему алгоритма, написать программу в паскале,результаты запуска

vlad93
	29.05.2013, 00:25	3
	JokeR.BY, Спасибо огромное) надеюсь правильно)

Опции темы

Все отрицательные члены последовательности заменить наибольшим элементом

Решение