Question

Составить массив из 10 целых чисел и подсчитать количество элементов массива,значения которых не превышают 3.

Answer 1

Const    vt_max=10;
var   
    i:byte;
    sum:integer;
    vt:array[1..vt_max]of integer;
    
begin
  sum:=0;
  writeln('Начальный массив случайных чисел');
  for i:=1 to vt_max do begin
    vt[i]:=random(0,12);
    write(vt[i]:6);
    if (vt[i]<=3) then
      sum:=sum+vt[i];
  end;

  writeln('');  
  writeln('Сумма элементов не больше 3 равна ', sum);
end.