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

Дан одномерный массив D ,размерностью 20. Элементы массива - это целые числа из промежутка [0;750]. Напишите программу в Паскале ,вычисляющую количество элементов массива больших 500, которые кратны числу 15. 
Гость
Ответ(ы) на вопрос:
Гость
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
Не нашли ответ?
Ответить на вопрос
Похожие вопросы