1) В цикле Repeat Until идет проверка, что число введено в диапазоне [0..200}
var
i,n:integer;
a:longint;
p:real;
begin
p:=1;
Repeat
readln(n);
Until (n>=0)and(n<=200);
for i:=1 to n do
begin
readln(a);
p:=p*a;
end;
writeln(p);
end.
2)
var
i,n:integer;
a,max:longint;
begin
Repeat
readln(n);
Until (n>=0)and(n<=200);
for i:=1 to n do
begin
readln(a);
if a>max then
max:=a;
end;
writeln(max);
end.
3)
var
i,n:integer;
a,min:longint;
begin
Repeat
readln(n);
Until (n>=0)and(n<=200);
for i:=1 to n do
begin
readln(a);
if a<min then
min:=a;
end;
writeln(min);
end.
Только один человек удовлетворяет удовлетворяет все условия
Номер 5
Связывание таблиц.
В базах данных таблицы связываются между собой по типу "один ко многим", "один к одному", "многие ко многим".
Var i:integer;
begin
for i:=2 to 20 do
writeln(i:2,' килограмм (-а) конфет стоит ',i*450:4,' руб.')
end.
1.
Файл – Свойства – Статистика
2.
2:4 ячейки
3.
Файл – Свойства – Документ
<span>
</span>