Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Расписать значение строк в коде https://www.cyberforum.ru/ pascal/ thread1211819.html
uses crt; Var s,s1,p:string; i:byte; t:char; Begin write('Введите строку: ');readln(s); Delete(s,Pos('.',s),1);p:=''; While s=' ' do Delete(s,Length(s),1); For...
Pascal Вычислить сумму и количество элементов файла, значение которых больше чем 9,3
создать целочисленный файл. Вычислить сумму и количество элементов, значение которых больше чем 9,3 и среднее арифметическое элементов, значения которых меньше, чем –3,5
Pascal Составить программу для вычисления массива Составить* программу для вычисления W= A*B/(C+2) A - наибольший элемент массива; B - произведение элементов массива с четными номерами; C - количество элементов массива, больших D (вводится с... https://www.cyberforum.ru/ pascal/ thread1211670.html Pascal Переписать методом ООП https://www.cyberforum.ru/ pascal/ thread1211633.html
Переписать методом Объектно-Ориентированного Программирования данную программу. Const N=16; Var A,B:Array of Integer; i:byte; Begin Randomize; for i:=1 to N do begin
Найти отношение произведений отрицательных и положительных элементов массива Pascal
Ввести с клавиатуры целое число. 1) Если число равно 1, то в заданных массивах 10 P и 12 Q найти: - R1 - отношение произведений отрицательных и положительных элементов массива Р; - R2 - отношение...
Pascal Программа не находит модуль Почему программа MBM и другие модули не находят модуль MBMData? https://www.cyberforum.ru/ pascal/ thread1211296.html
Pascal Составить программу, определяющую, на какую букву оканчивается второе слово предложения составить программу, определяющую, на какую букву оканчивается второе слово предложения(паскаль) https://www.cyberforum.ru/ pascal/ thread1211160.html Pascal Разработать программу вычисления значения многочлена
Разработать программу вычисления значения многочлена P(x)=A0+A1x+A2x2+...+Anxn в целочисленной точке x. При этом значения коэффициентов A0, A1, ..., An вводятся с клавиатуры и динамически...
Pascal Определить сумму элементов массива X[n] с четными номерами https://www.cyberforum.ru/ pascal/ thread1210701.html
Определить сумму элементов случайного массива X с четными номерами. Вывести массив и полученную сумму. Возвести в квадрат все элементы исходного массива X и получить новые значения. Вывести...
Pascal Вычислить значение выражения https://www.cyberforum.ru/ pascal/ thread1210495.html
Вычислить: \sum_{i=1}^{100}\,\sum_{j=1}^{60}\,\sin \left(i^3+j^4 \right)
Pascal Вычислить значение выражения
Дано действительное число x. Вычислить: x-\frac{x^^3}{3!}+\frac{x^^5}{5!}-\frac{x^^7}{7!}+\frac{x^^9}{9!}-\frac{x^^{11}}{11!}+\frac{x^^{13}}{13!}
Pascal Переставить числа в массиве: положительные, отрицательные, нули, с сохранением изначального порядка следования https://www.cyberforum.ru/ pascal/ thread1210307.html
Дан массив целых чисел,содержащий 10 элементов.Записать в этот же массив сначало все положительные,затем отрицательные,затем нули, сохраняя их порядок следования в массиве. Нужна программа и...
78 / 80 / 70
Регистрация: 18.12.2013
Сообщений: 211
18.06.2014, 20:35 0

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

18.06.2014, 20:35. Показов 1706. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено 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.


Вернуться к обсуждению:
Найти сумму элементов массива, которые кратны трем Pascal
2
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.06.2014, 20:35
Готовые ответы и решения:

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

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

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

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

1
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
Здравствуйте, помогите пожалуйста решить задачу, готовую на паскале, но непонятную в самом...

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