Question

В массиве А из 20 целых чисел найти сумму тех элементов, которые кратны заданному числу К (число К запрашивать с клавиатуры). Элементы массива в диапазоне от 10 до 100. ПАСКАЛЬ! Решите правильно плиз, дам 25 баллов.

Answer 1

Ответ:

program prog;

var

a:array[1..20] of integer;

k,i,sum:integer;

begin

   write('Введите делитель: '); readln(k);

   sum:=0;

   for i:=1 to 20 do begin

       a[i]:=random(-90)+100;

       write(a[i], ' ');

       if a[i] mod k = 0 then sum:=sum+a[i];

   end;

   writeln();

   write('Сумма чисел, кратных ', k,', равна ', sum);

end.

Answer 2

Конечно, вот программа на языке Паскаль, которая решает задачу:

pascalCopy code
program SumMultipleK;
var
  A: array[1..20] of Integer;
  K, i, sum: Integer;
begin
  // Вводим массив A
  writeln('Введите 20 целых чисел в диапазоне от 10 до 100:');
  for i := 1 to 20 do
  begin
    repeat
      write('A[', i, ']: ');
      readln(A[i]);
    until (A[i] >= 10) and (A[i] <= 100);
  end;

  // Вводим число K
  write('Введите число K: ');
  readln(K);

  // Вычисляем сумму кратных числу K элементов массива A
  sum := 0;
  for i := 1 to 20 do
  begin
    if A[i] mod K = 0 then
      sum := sum + A[i];
  end;

  // Выводим результат
  writeln('Сумма элементов массива, кратных ', K, ': ', sum);
end.

Пожалуйста, учтите, что этот код предполагает, что вы используете среду программирования, которая поддерживает язык Паскаль. Надеюсь, это поможет вам решить задачу!