Дан массив А (40), заполненный случайными числами в диапазоне от 0 до 1000. Найти сумму элементов кратных заданному к.
50
ОТВЕТЫ
Program Ok;
const n=40;
var
A:array[1..n] of integer;
sum,i,k:integer;
begin
randomize;
read(k);
sum:=0;
for i:=1 to n do
A[i]:=random(1000);
for i:=1 to n do
begin
if (A[i] mod k = 0) then
sum:=sum+A[i];
end;
write(Сумма элементов массива кратных , k, = , sum);
end.
const n=40;
var
A:array[1..n] of integer;
sum,i,k:integer;
begin
randomize;
read(k);
sum:=0;
for i:=1 to n do
A[i]:=random(1000);
for i:=1 to n do
begin
if (A[i] mod k = 0) then
sum:=sum+A[i];
end;
write(Сумма элементов массива кратных , k, = , sum);
end.
192
Отв. дан
Keekon
Для написания вопросов и ответов необходимо зарегистрироваться на сайте
Другие вопросы в разделе - Информатика
Кондрат
Одномерный массив Х(8) задать по формуле X[i]=ln(i+0,1). Найти количество ...
2019-01-22 07:32:27
Горбовский
Алгоритмический язык. Чему равно значение переменной SUM по окончании ...
2019-01-22 07:32:02
Souzhamda
Какие предикаты первого порядка описывают условие: «Точка X не ...
2019-01-22 07:30:06
Vaavdem
Подскажите решить задания по информатике. Заранее спасибо) 1. Сравните ...
2019-01-22 07:30:05