В массиве хранится информация

[Борисс]

В массиве хранится информация о массе каждого из 30 предметов, загружаемых в грузовой автомобиль, грузоподъемность которого известна. Определить, не превышает ли общая масса всех предметов грузоподъемность автомобиля.

[Stilet]

Ввод массива этих грузов показать сможешь?

[Борисс]

Боюсь что нет, мы только начали это проходить. Я ничего не понял

[Stilet]

Пичаль. Ладно.

const n=100; a:array[1..30] of double=(
  1,2,3,4,5,6,7,8,9,10
  11,22,33,44,55,66,77,88,99,100
  111,222,333,444,555,666,777,888,999,1000);
var i:integer;
 s:double;
begin
 s:=0;
 for i:=1 to 30 do begin
  s:=s+a[i]; if s>n then begin write('Перегруз'); readln; exit; end;
 end;
 write('Все влезло'); readln;
end.

Идея уловима?

[min@y™]

мы только начали это проходить. Я ничего не понял

думаю, стоит дождаться конца «прохождения» и вкурить матчасть!

[Борисс]

Спасибо огромное!

[como]

Сообщение от min@y™

думаю, стоит дождаться конца «прохождения» и вкурить матчасть!

или попытаться пройти этот квест на самом лёгком уровне сложности