Program MIN;
Var
A, I : Integer;
Min : Integer;
Begin
Min:=32767;
For I:=1 to 10 do
Begin
Write('Vvedi chislo ');
Readln(A);
If A < Min then Min:=A;
end;
Writeln('MIN=',Min);
Readln;
end.
Нахождение минимального числа из введенных: Program-начало программы, MIN-название программы, Var- раздел описание переменных, A, I : Integer; Min : Integer;- переменные целого типа, Begin- раздел операторов Min:=32767- оператор присваивания, For I:=1 to 10 do-операторы с циклом с параметром, Begin-раздел операторов, Write('Vvedi chislo ');-вывод данных на экран, Readln(A);- ввод данных на клавиатуру, If A < Min then Min:=A;- оператор ветвления, end-конец, Writeln('MIN=',Min);- вывод данных на экран Readln;- ввод данных end. - конец программы
Нахождение минимального числа из введенных:
ОтветитьУдалитьProgram-начало программы,
MIN-название программы,
Var- раздел описание переменных,
A, I : Integer; Min : Integer;- переменные целого типа,
Begin- раздел операторов
Min:=32767- оператор присваивания,
For I:=1 to 10 do-операторы с циклом с параметром,
Begin-раздел операторов,
Write('Vvedi chislo ');-вывод данных на экран,
Readln(A);- ввод данных на клавиатуру,
If A < Min then Min:=A;- оператор ветвления,
end-конец,
Writeln('MIN=',Min);- вывод данных на экран
Readln;- ввод данных
end. - конец программы
"or I:=1 to 10 do-операторы с циклом с параметром," - нужно было расписать, как работает этот оператор.
ОтветитьУдалитьВ остальном все верно, задание зачтено.