Короче, я с теорией не работаю, поэтому объясню алгоритм более практичней. Итак, нам нужно проверить каждый элемент массива и выяснить, является ли он трехзначным числом. Какой-то переменной мы присваем значение 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.
Ну наверно так...
Удачи!
4: 4 Кб = 4096 б
4096 б / 4096 символов = 1 б - на символ
алфавит содержит 2^8 = 256 символов
10: 375 б :500 = 6 бит на символ
мощность = 2^6 = 64 символа
Программы проверены в интерпретаторе ByWater Basic Interpeter/Shell version 2.20 patch level2 for linux
Задание 1:
10 rem Площадь круга и квадрата
20 input "Введите площадь круга"; SR
30 input "Введите площадь квадрата"; SK
40 a=sqr(SK)
50 c=sqr(a^2 * 2)
60 pi=3.1415926
70 r=sqr(SR/pi)
80 if a>=r then print "Круг поместится в квадрат":goto 110
90 if r>=c then print "Квадрат поместится в круг":goto 110
100 print "Фигуры не поместятся друг в друга"
110 print "---------------------------------":print
120 end
Задание 2:
10 rem Три числа
20 print "Введите три числа"
30 input a, b, c
35 if a = b and b = c then print "Числа равны между собой" : goto 100
40 if a > b then swap a, b
50 if b > c then swap b, c
60 if a > b then swap a, b
70 if a > c then swap a, c
80 print "Минимум ", a
90 print "Максимум ", c
100 end
Задание 3:
10 rem Первая цифра - чётная?
20 input "Введите двузначное число ", a
30 if a < 10 or a > 99 then 20
33 me$ = "Начинается с чётной"
36 mo$ = "Начинается с нечётной"
40 if int(a / 10) mod 2 = 0 then print me$ else print mo$
50 end
Задание 4:
10 rem Треугольник
20 input "Введите длину стороны а ", a
30 input "Введите длину стороны b ", b
40 input "Введите длину стороны c ", c
45 print "Составить такой треугольник ";
50 if a+b>c and a+c>b and b+c>a then 70
60 print "нельзя"
65 goto 90
70 print "можно"
83 if a=b and b = c then print "Треугольник равносторонний" : goto 90
86 if a=b or a=c or b=c then print "Треугольник равнобедренный"
90 end
