Как переписать программу с процедурами и функциями - Pascal
Формулировка задачи:
Решение задачи: «Как переписать программу с процедурами и функциями»
textual
Листинг программы
Program zadacha_2; var x:array[1..30] of integer; y,z,i:integer; procedure into; begin for i:=1 to 30 do begin writeln (' Т±Т±УЁ¤ЁвУЁ н«УЁ¬УЁ*вЁ ¬*ббЁТ±* x[i]'); readln (x[i]); end; end; Begin into; y:=x[1]; z:=x[1]; for i:=1 to 30 do if y>x[i] then y:=x[i] else if z<x[i] then z:=x[i]; writeln ('¬*Т’бЁ¬*«м*®УЁ' , z , ' ¬Ё*Ё¬*«м*®УЁ' , y); readln; end; begin writeln ('¬*Т’бЁ¬*«м*®УЁ' , y , '¬Ё*Ё¬*«м*®УЁ' , z); readln; end; end.
Объяснение кода листинга программы
Список действий в коде:
- Объявление переменных: x, y, z, i.
- Объявление процедуры into.
- Ввод данных с помощью цикла for и процедуры into.
- Присваивание значений переменным y и z.
- Цикл for для сравнения значений y и z с элементами массива x.
- Вывод на экран значений y и z.
- Ввод данных с помощью readln.
- Вывод на экран значений y и z.