Дан одномерный массив целых чисел поменять местами самый первый и самый последний элемент не равный 0. Программа Pascal

Question

Информатика

Ириней

8 мая, 10:06

Дан одномерный массив целых чисел поменять местами самый первый и самый последний элемент не равный 0. Программа Pascal

+2

Ответы (1)

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

Мелитика · Answer 1

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

i, k, i1:integer;

begin

for i:=1 to 10 do readln (a[i]) ;

for i:=10 downto 1 do if a[i]0 then begin k:=a[i]; i1:=i; break; end;

a[i1]:=a[1];

a[1]:=k;

for i:=1 to 10 do write (a[i],' ') ;

end.