Untitled

mail@pastecode.io avatar
unknown
plain_text
25 days ago
687 B
1
Indexable
Never
program AverageOfElements;

var
  arr: array[1..10] of integer;
  i, count, sum, average: integer;

begin
  sum := 0;
  count := 0;
  Randomize;
  
  for i := 1 to 10 do
  begin
    arr[i] := Random(101);
    if arr[i] < 50 then
    begin
      sum := sum + arr[i];
      count := count + 1;
    end;
  end;
  
  writeln('Сгенерированный массив:');
  for i := 1 to 10 do
    write(arr[i], ' ');
  
  writeln;
  
  if count > 0 then
  begin
    average := sum div count;
    writeln('Среднее значение всех элементов меньше 50: ', average);
  end
  else
    writeln('Нет элементов меньше 50 в массиве');
end.
Leave a Comment