var i, n, k, s: integer; a: array[1..nmax] of integer;
begin Randomize; Write('Введите количество элементов массива (1-99)'); Readln(n); Write('Введите число k '); Readln(k); Writeln('Исходный массив'); s := 0; for i := 1 to n do begin a[i] := Random(98) + 1; Write(a[i]:3); if (a[i] mod k) = 0 then s := s + a[i] end; Writeln(#13#10, 'Сумма элементов, кратных ', k, ' равна ', s) end.
Тестовое решение:
Введите количество элементов массива (1-99)12 Введите число k 3 Исходный массив 34 63 18 81 91 83 83 80 10 59 81 74 Сумма элементов, кратных 3 равна 243
1 - моделью 2 - меньше информации 3 - глобус, макет здания, муляж яблока, манекен 4 - рисунок, фотография 5 - знаковой 6 - смешанной 7 - автомобиль — техническое описание автомобиля, город — путеводитель по городу 8 - существенные признаки объекта-оригинала 9 - разные модели объекта 10 - физическая карта, график зависимости расстояния от времени, схема узора для вязания крючком, схема метро 11 - словесное описание, формула 12 - знаковой 13 - смешанной 14 - болт — чертеж болта, мелодия — нотная запись мелодии
nmax = 99;
var
i, n, k, s: integer;
a: array[1..nmax] of integer;
begin
Randomize;
Write('Введите количество элементов массива (1-99)');
Readln(n);
Write('Введите число k ');
Readln(k);
Writeln('Исходный массив');
s := 0;
for i := 1 to n do
begin
a[i] := Random(98) + 1;
Write(a[i]:3);
if (a[i] mod k) = 0 then s := s + a[i]
end;
Writeln(#13#10, 'Сумма элементов, кратных ', k, ' равна ', s)
end.
Тестовое решение:
Введите количество элементов массива (1-99)12
Введите число k 3
Исходный массив
34 63 18 81 91 83 83 80 10 59 81 74
Сумма элементов, кратных 3 равна 243