program weight_class;
var x, y:integer;
label 10,20;
begin
10:Writeln ('введите вес спорсмена в кг');
Readln(x);
if x<69 then
Writeln('Спортсмен весом ', x, 'кг, относится к легкой категории');
if (x>=69) and (x<85) then
Writeln('Спортсмен весом ', x, 'кг, относится к средней категории');
if (x>=85) and (x<105) then
Writeln('Спортсмен весом ', x, 'кг, относится к тяжелой категории');
if x>=105 then
Writeln('Спортсмен весом ', x, 'кг, относится к супертяжелой категории');
Writeln(' Будете еще вводить вес спортсмена: 1-Да, другая любая цифра-Нет');
Readln (y);
if y=1then
goto 10;
end.
Объяснение:
носи́тель) — любой материальный объект или среда[уточнить], используемый человеком достаточно длительное время сохранять (нести) в своей структуре занесённую на него информацию, без использования дополнительных устройств (например, источника энергии).
Это может быть, например, камень, дерево, бумага, металл, пластмассы, кремний (и другие виды полупроводников), лента с намагниченным слоем (в бобинах и кассетах), фотоматериал, пластик со специальными свойствами (например, в оптических дисках) и другие.
Носителем информации может быть любой объект, с которого возможно (доступно) чтение (считывание) имеющейся на нём (нанесённой, записанной) информации.
var mas:array[1..10] of integer;
var i,min:integer;
begin
for i:=1 to 10 do
begin
write('Введите ',i,' элемент массива: ');
readln(mas[i]);
end;
min:=mas[i];
for i:=1 to 10 do
begin
if(mas[i]<min) then
min:=mas[i];
end;
writeln('Минимальный элемент: ',min);
end.