Как переписать программу с процедурами и функциями - 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.

Объяснение кода листинга программы

Список действий в коде:

  1. Объявление переменных: x, y, z, i.
  2. Объявление процедуры into.
  3. Ввод данных с помощью цикла for и процедуры into.
  4. Присваивание значений переменным y и z.
  5. Цикл for для сравнения значений y и z с элементами массива x.
  6. Вывод на экран значений y и z.
  7. Ввод данных с помощью readln.
  8. Вывод на экран значений y и z.

Оцени полезность:

13   голосов , оценка 4.154 из 5
Похожие ответы