Программа:
Pascal:
var
chemodan, klad, dop: real;
begin
write('Вес чемодана', #10, '<<< '); readln(chemodan);
write('Вес ручной клади', #10, '<<< '); readln(klad);
write('Вес доп. предметов ручной клади', #10, '<<< '); readln(dop);
writeln('Вес багажа: ', chemodan + klad + dop);
end.
Python:
chemodan = float(input('Вес чемодана\n>>> '))
klad = float(input('Вес ручной клади\n>>> '))
dop = float(input('Вес доп. предметов ручной клади\n>>> '))
print('Вес багажа:', chemodan + klad + dop)
Короче, я с теорией не работаю, поэтому объясню алгоритм более практичней. Итак, нам нужно проверить каждый элемент массива и выяснить, является ли он трехзначным числом. Какой-то переменной мы присваем значение 1000. И как только мы находим трехзначное число, мы проверяем ниже ли это число той переменной(в первый раз, соответственно да). если ответ положительный, то присваем переменной значение числа, сс которым мы работали и которое, естественно меньше. Теперь проверяем дальше трехзначные числа. Если они ниже переменной, то присваевам их к этой же переменной. В конце цикла, переменная будет иметь значение минимального 3х знач элемента. Если переменная по прежнему равна 1000. Значит 3х знач числа не нашлось и мы выводим надпись "таких чисел нет".
Если я объяснил не слишком понятно, то покажу на примере:
var a:array [1..30] of real; i,min: real;
begin
{здесь ты сама как-нибудь вводишь элементы цикла. Или с файла, либо с вводом}
min:=1000;
for i:=1 to 30 do begin
If (a[i] div 100>0) and (a[i] div 100<10) then
if a[i]<min then min:=a[i];
end;
if min<>1000 then writeln(min) else writeln('таких чисел нет!')
end.
Ну наверно так...
Удачи!
это crtl
Объяснение:
вроде бы правильно :>