for(i:=1 to n) a[i]:=random(101);// заполняшь массив a целыми числами в диапозоне от 0 до 100
<span>var a,b,c,min:integer;
begin
readln(a,b,c);
if a<b then min:=a else min:=b;
if c<min then min:=c;
writeln('min = ',min);
end<span>.
Пример:
2 3 1
</span><span>min = 1</span></span>
1-ое число: 1
2-ое число: 10
3-е число: 11
4-ое число: 100
5-ое число: 101
6-ое число: 110
7-ое число: 111
8-ое число: 1000
9-ое число: 1001
10-ое число: 1010
11-ое число: 1011
12-ое число: 1100
13-ое число: 1101
14-ое число: 1110
15-ое число: 1111
16-ое число: 10000
17-ое число: 10001
18-ое число: 10010
19-ое число: 10<span>011</span>
20-ое число: 10100
Program Program1;
var Name: string;
var Cost: real;
begin
write('Введите название товара: ');
readln(Name);
write('Введите цену товара: ');
readln(Cost);
writeln('Ваши расходы на покупки равны', Cost, ' руб.');
end.
=============================
program Program2;
var a, b, c, sum: integer;
var average: real;
begin
writeln('Введите три числа:');
readln(a, b, c);
average := (a + b + c) / 3;
writeln('Их среднее равно ', average);
sum := a + b + c;
writeln('Их сумма равна ', sum);
end.