Var a: array [1..1000] of integer; i, n, min, amount: integer;
begin
read(n); {Сначала считываем кол-во элементов}
for i := 1 to n do
read(a[i]);
min := 10000;
amount := 0;
for i :=1 to n do
if (a[i] < min) and (a[i] >= 0) then
min := a[i];
for i := 1 to n do
if a[i] = min then
amount := amount + 1;
writeln('Min: ', min, ', amount: ', amount);
<span>end.</span>
61
86.570A3D70A<span>3D8
</span>0<span>.52</span>
Используя дополнительную переменную можно получить так:
1. В = A * A
2. B = B * B
3. B = B * B
4. A = B * A
1) Без понятия, звучит как плохая постановка вопроса. Возможно это проходили именно вы и тебе будет ответить намного проще, нужен контекст.
Я так понимаю это "энергонезависимость"
2) Монитор
3) Жесткий диск
то что подчеркнуто на минимальный возвраст группы заменить.
? "Введите возвраст человека"
INPUT A
IF A><span>пенсионер</span> THEN 1 ELSE 2
1 ? "группа пенсионеров" : GOTO 10
2 IF A><span>работник</span> THEN 3 ELSE 4
3 ? "группа работников" : GOTO 10
4 IF A><span>ученик</span> THEN 5 ELSE 6
5 ? "группа учеников" : GOTO 10
6 ? "группа дошкольников"
10 END