Вопрос по информатике:
Дан массив из n чисел. Получить сумму элементов массива, которые кратны 5
Паскаль
Пожаловаться
- 09.10.2015 02:50
- Информатика
- remove_red_eye 9340
- thumb_up 19
Ответы и объяснения 2
Program sum;
var
Arr: array [1..10] of integer;
n,i: integer;
Sum: integer;
begin
{Заполнение массива и подсчёт суммы}
n:=10;
randomize;
Sum:=0;
for i:=1 to n do begin
Arr[i]:=random(100);
write(Arr[i],',');
if Arr[i] mod 5=0 then
Sum:=Sum+Arr[i];
end;
writeln;
writeln('сумма элементов кратных 5 равна ', Sum);
readln;
end.
var
Arr: array [1..10] of integer;
n,i: integer;
Sum: integer;
begin
{Заполнение массива и подсчёт суммы}
n:=10;
randomize;
Sum:=0;
for i:=1 to n do begin
Arr[i]:=random(100);
write(Arr[i],',');
if Arr[i] mod 5=0 then
Sum:=Sum+Arr[i];
end;
writeln;
writeln('сумма элементов кратных 5 равна ', Sum);
readln;
end.
Пожаловаться
- 01.01.1970 00:00
- thumb_up 7
// PascalABC.NET 3.3, сборка 1547 от 07.10.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
Write('Сумма элементов, кратных 5: ',
a.Where(x->x mod 5=0).Sum)
end.
Пример
n= 13
-66 87 95 10 18 69 62 -74 -24 -74 -92 57 -4
Сумма элементов, кратных 5: 105
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
Write('Сумма элементов, кратных 5: ',
a.Where(x->x mod 5=0).Sum)
end.
Пример
n= 13
-66 87 95 10 18 69 62 -74 -24 -74 -92 57 -4
Сумма элементов, кратных 5: 105
Пожаловаться
- 01.01.1970 00:00
- thumb_up 37
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы