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

Question

Информатика

Ефросинья

14 апреля, 22:06

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

+3

Ответы (1)

Знаете ответ на вопрос?

Нефёд · Answer 1

Var

a:array[1 ... 10] of integer;

i, b:integer;

Begin

b:=1;

Writeln ('Вводите чесла') ;

for i : = 1 to 10 do Begin

read (a[i]) ;

if i>1 then

if a[i]>a[i-1] then b:=i;

End;

a[b]:=0;

for i: = 1 to 10 do

write (a[i],' ') ;

End.