0 / 0 / 0
Регистрация: 23.10.2012
Сообщений: 9
1

Подсчитать количество и сумму элементов массива, которые делятся на 5 без остатка

19.11.2012, 11:05. Показов 7754. Ответов 2
Метки нет (Все метки)

массив целых чисел из 10 элементов заполнить случайным образом. Подсчитать количество и сумму элементов массива которые делятся на 5 без остатка
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.11.2012, 11:05
Ответы с готовыми решениями:

Найти сумму элементов массива, которые без остатка делятся на 2
Не могу разобраться ! препод задал ! Задание Дан массив из 10 целых чисел...

Определить в матрице количество тех элементов, которые без остатка делятся на собственный индекс
Ввести двумерный массив Определить в нем количество тех элементов, которые без остатка делятся на...

Одномерные массивы. Определить произведение элементов, которые без остатка делятся на 2 и не делятся на 3
Ребят помогите пожалуйста с двумя задачами "одномерные массивы" 1)Ввести одномерный массив A из...

Определить в массиве сумму элементов, чьи значения без остатка делятся на 3 и не делятся на 2
1)Ввести одномерный массив А из 12 эл. определить в нем сумму эл. чьё значение без остатка делится...

2
Фрилансер
3417 / 2814 / 3000
Регистрация: 08.02.2012
Сообщений: 8,438
Записей в блоге: 1
19.11.2012, 11:18 2
Лучший ответ Сообщение было отмечено f3tch как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Const n=10;
Var A:array[1..n] of integer;
    i,k,s:integer;
Begin
    For i:=1 to n do
    Begin
      A[i]:=random(31)-15;
      write(A[i]:4);
      if A[i] mod 5 = 0 then
      Begin
        inc(k);
        inc(s,A[i]);
      End;
    End;
    writeln;
    writeln('Сумма = ',s);
    writeln('Кол-во = ',k);
end.
1
0 / 0 / 0
Регистрация: 23.10.2012
Сообщений: 9
19.11.2012, 12:14  [ТС] 3
а как-то еще можно его упростить?

var m: array [1..10] of integer;
j,s:integer ;
begin
randomize;
for j:=1 to 10 do
begin M [j]:=random (10)
writeln ('M[',J,']=',M[J]);
END;

вот что я сам смог надумать :S
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.11.2012, 12:14
Помогаю со студенческими работами здесь

Определить количество четных отрицательных чисел которые делятся на 3 без остатка
дано 10 целых чисел определить количество четных отрицательных чисел которые деляться на 3 без...

Количество чисел между 100 и 1000, которые делятся без остатка одновременно на 13 и 15
определите и выведите на экран количество чисел между 100 и 1000, которые делятся без остатка...

Заменить все элементы массива, которые делятся без остатка на «3», на единицы (9);
Что не так делаю? uses crt; const nmax=9; var a:array of integer; n,i:integer; begin...

Найти количество и сумму тех членов данного массива, которые делятся на 5 и не делятся на 7
написать программу на паскале.Дан массив целых чисел а0,...,аn-1. Найти количество и сумму тех...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru