Question

Дан одномерный массив D ,размерностью 20. Элементы массива - это целые числа из промежутка [0;750]. Напишите программу в Паскале ,вычисляющую количество элементов массива больших 500, которые кратны числу 15. 

Answer 1

const
  n=20;
var
  i,k,e:integer;
  a:array[1..n] of integer;
begin
  Randomize;
  k:=0;
  for i:=1 to n do begin
    e:=random(750);
    a[i]:=e;
    if (e>500) and (e mod 15 =0) then
      k:=k+1;
    write(e:4)
    end;
  writeln; 
  writeln('Найдено чисел: ',k);
end.

Тестовый пример:

 262 743 705 288 545 694 437 280 317 434  53 344 302 293 246 200 608 194 523 478
Найдено чисел: 1