Найти количество четырёхзначных чисел кратных 10

Question

Информатика: Найти количество четырёхзначных чисел кратных 10

наташа608 · Accepted Answer

Так как в условии задачи речь идет о массиве действительных чисел,то будем использовать тип real. Четкого размера массива нет - используем динамический массив var  a: array of real; // динамический массив вещественных чисел  n, x, y, i: integer; begin  write( Vvedite razmer massiva n= );   readln(n); // считываем размер динамического массива  a := new real[n + 1]; // инициализируем динамический массив размера n  for i := 1 to n do        begin            a[i] := random(n, -n) + 1 / (random(n) +...

MOGZ ответил