Дан одномерный массив целых чисел поменять местами самый первый…

Question

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

Answer 1

59

dinos1966

23 февраля 2023

var a: array[1… 10]of integer; i,k,i1: integer; beginfor 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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: