Question

Язык программирования - Турбо Паскаль
Задание:
Найти сумму элементов массива кратных заданному числу.
Можете сделать с array

Answer 1

Ответ:

const

n=10;

var

a,i,s: integer;

ar:array[1..n] of integer;

begin

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

readln(a);

s:=0;

for i:=1 to n do

   ar[i]:=random(10);

for i:=1 to n do

   writeln(ar[i]);

for i:=1 to n do

   if ar[i] mod a =0 then s:=s+ar[i];

writeln('Результат: ',s);

end.

Объяснение:

Answer 2

Ответ:

program kol_krat_zad;

uses crt;

var

i,x,n,k:int64;

a:array[1..100000]of int64;

begin

write('Введите количество чисел》');

read(n);

for i:=1 to n do

begin

write('Введите ',i,'-е число》');

read(a[i]);

end;

write('Введите число, кратность которому выполняется проверка》');

read(x);

k:=0;

for i:=1 to n do

if (a[i]mod x =0) then

k:=k+a[i];

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

end.