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

Найти сумму элементов массива, которые кратны трем

18.06.2014, 19:45. Показов 1658. Ответов 1
Метки нет (Все метки)

Задать случайным образом одномерный массив из 18 целочисленных элементов, принадлежащих отрезку [-19;19]. Найти сумму элементов массива, которые кратны трем. Закрасить указанные элементы.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
1
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.06.2014, 19:45
Ответы с готовыми решениями:

Найти сумму положительных элементов массива, исключая при этом те элементы, которые кратны трём
я в паскале плохо разбираюсь помогите в долгу не останусь 1 задача Ввести двумерный ...

Найти сумму тех элементов массива, которые кратны K
В массив А занесены натуральные числа.Найти сумму тех элементов,которые кратны данному K.

Составить алгоритм, находящий сумму элементов массива, значение которых больше 5, а номера кратны трем
Составить алгоритм, находящий сумму элементов массива, значение которых больше 5, а номера кратны...

Найти произведение положительных элементов массива, стоящих на местах, номера которых кратны трем
Дан одномерный массив N(14), найдите произведение положительных элементов массива,стоящих на...

1
78 / 80 / 70
Регистрация: 18.12.2013
Сообщений: 211
18.06.2014, 20:35 2
Лучший ответ Сообщение было отмечено Skrepi как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
uses
  crt;
 
var
  X: array[1..18] of integer;
  i, sum: integer;
 
begin
 sum:=0;
  for i := 1 to 18 do
  begin
    x[i] := Random(19) - Random(19);
    if (x[i] mod 3 = 0) and ( x[i] <> 0) then
     Begin
     Textcolor(12);
     sum:=sum+x[i];
     End else
     Textcolor(15);
    write(x[i] + ' ');
  end;
     writeln();
     Textcolor(15);
  writeln('summa kratnix 3:  ', sum);
  readln;
end.
2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.06.2014, 20:35
Помогаю со студенческими работами здесь

Найти сумму чисел массива, которые не кратны 3
РЕбят помогите найти ошибку. НАда составить программу которая находит сумму чисел массива которые...

Определите сумму элементов последовательности, которые кратны 2, но не кратны 3
С оператором цикла While 3. Определите сумму элементов последовательности, которые кратны 2, но не...

Из элементов массива A, которые кратны 5, но не кратны 3, сформировать массив B
Помогите пожалуйста с задачей в паскале для курсовой работы : Дан массив A(M). Из элементов массива...

Из элементов массива A, которые кратны 5, но не кратны 3, сформировать массив B
Здравствуйте, помогите пожалуйста решить задачу, готовую на паскале, но непонятную в самом...


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

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

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