А m[i] от 1 до 106 или от 1 до 10^6 ?
Вообще-то неизвестно, сколько поместится, если не знать:
1) Сколько места осталось в сумке
2) Размер самой большой матрешки
3) Учтите, что может быть несколько групп матрешек, например
(25, 20, 18, 10) и (20, 18, 15, 10, 8) и (10, 8, 5, 3)
И все три группы могут влезть в сумку независимо друг от друга.
И еще. Вы понимаете, что если матрешек 10000 и их размеры от 1 до 10000 мм,
то самая крупная имеет диаметр 10000 мм = 10 м и не поместится ни в какую сумку?
Всё правильно кроме видит
Ответ:
Скорее всего:
животные | Австралия | Бразилия
===== PascalABC.NET =====
begin
var (a, b) := ReadReal2('Введите коэффициенты a и b:');
Write('Корень уравнения равен ', -b / a:0:3)
end.
Program qq;
var col, out, i: integer;
arr: array[1..100] of integer;
begin
write('Количество элементов: ');
readln(col);
write('Введите числа: ');
out := 0;
for i := 1 to col do readln(arr[i]);
writeln;
write('Положительных чисел: ');
for i := 1 to col do begin
if(arr[i] > 0) then out := out + 1;
end;
write(out);
end.
-----
В вашем же решении вы не указали переменную k, т.е. у вас нет k := 0; и после выполнения условия if не нужно писать end;