помогите пж. Я плохо знаю, как писать программы.
var a, b: integer;
begin
for 1 to a do begin
read(b)
end.
выдаёт ошибку. Я хочу, ввести первую цифру. Например, 3, а потом 3 раза ввести числа и найти минимальное. Исправьте программу, пожалуйста.
var a, b: integer;
begin
for 1 to a do begin
read(b)
end.
выдаёт ошибку. Я хочу, ввести первую цифру. Например, 3, а потом 3 раза ввести числа и найти минимальное. Исправьте программу, пожалуйста.
More Questions From This User See All
Answers & Comments
Program KennyLans;
var a, b, c, d, min: real;
begin
write('Введите 4 числа для сравнения (через пробел): ');
read (a, b, c, d);
min := a;
if b < min then min := b;
if c < min then min := c;
if d < min then min := d;
writeln('Минимальное число: ', min);
readln;
end.