Мне не очень понятна суть задания.
Какого массива? Он задан?
одномерного

Ответы и объяснения

2013-11-05T15:45:10+04:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.
Var b:array[1..100] of integer;
i, sum, a:integer;
Begin
  read(a);
  for i:= 1 to 100 do begin
    b[i]:= random(100);
    if b[i] < a then
      sum:= sum + b[i];
  end;
  writeln(sum);
End.