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

@make7Dast · Регистрация: 20.03.2014

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

Заменить первый отрицательный элемент на максимальное значение элемента массива A(N).Желательно с использованием процедуры.Буду очень благодарен.

@CodeR · 22.03.2014, 13:13

Pascal

Type mas=array[1..100] of integer;
Var A:mas;
    i,n,imax,ik:integer;
Procedure Poisk(A:mas;n:integer;Var ik:integer);
Var i:integer;
Begin
    ik:=0;
    For i:=1 to n do
     if A[i]<0 then 
     Begin
       ik:=i;
       break;
     End;
End;
Begin
    write('n: ');readln(n);
    writeln('Исходный массив');
    For i:=1 to n do
    Begin
      A[i]:=random(31)-15;
      if i=1 then imax:=1
       else if A[i]>A[imax] then imax:=i;
      write(A[i]:4);
    End;
    Poisk(A,n,ik);
    writeln;
    if ik=0 then writeln('Нету отрицательных элементов')
    else
    Begin  
      writeln('Преобразованный массив');
      A[ik]:=A[imax];
      For i:=1 to n do
       write(A[i]:4);
    End;
    readln;
End.

@make7Dast · 22.03.2014, 13:30 **[ТС]**

спасибо

@make7Dast 0 / 0 / 0 Регистрация: 20.03.2014 Сообщений: 9
		1
	Заменить первый отрицательный элемент на максимальное значение элемента массива 22.03.2014, 05:05. Показов 1341. Ответов 2 Метки нет (Все метки) Заменить первый отрицательный элемент на максимальное значение элемента массива A(N).Желательно с использованием процедуры.Буду очень благодарен. 0

@make7Dast 0 / 0 / 0 Регистрация: 20.03.2014 Сообщений: 9
	22.03.2014, 13:30 [ТС]	3
	спасибо 0

Опции темы

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

Решение