Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
ksss
0 / 0 / 0
Регистрация: 12.12.2010
Сообщений: 19
#1

сколько элементов в массиве делятся на 3 - Pascal

24.12.2010, 19:22. Просмотров 350. Ответов 3
Метки нет (Все метки)

ввести массив из 8 чисел подсчитать сколько элементов в массиве делятся на 3
 Комментарий администратора 
Не надо спама. Если ты его не сам добавляешь, то проверь компьютер на вирусы.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.12.2010, 19:22
Я подобрал для вас темы с готовыми решениями и ответами на вопрос сколько элементов в массиве делятся на 3 (Pascal):

Посчитать,сколько элементов массива равны 5 или сколько 5 в массиве - Pascal
Посчитать,сколько элементов массива равны 5 или сколько 5 в массиве Желательно полная программа и объяснения к ней. Заранее большое...

Определить, сколько в каждом массиве элементов, которые меньше суммы всех элементов - Pascal
1)Создать(процедурой) два массива с положительными и отрицательными элементами. Описать функцию поиска суммы элементов массива. Определить,...

Сколько различных элементов в массиве - Pascal
Помогите решить задачи плз 1)Сколько разлтцних елементов в масиве 2)Масив заполненый 0 и 1 переформировать что б вначале стояли 0ли а...

Сколько элементов кратных 5 имеется в данном массиве - Pascal
Помогите мне, пожалуйста, написать вот эти задачи: 3. Сколько элементов кратных 5 имеется в данном массиве. Заранее всем очень...

Выяснить, сколько в двумерном массиве нечетных элементов - Pascal
Дан двумерный массив 5x5. Выяснить, сколько в двумерном массиве нечетных элементов.

Подсчитать сколько в целочисленном массиве из 10 элементов чисел делящихся на 3 - Pascal
Решите плз задачу. Подсчитать сколько в целочисленном массиве из 10 элементов чисел делящихся на 3.

3
SuPeR XaKer
2843 / 1972 / 377
Регистрация: 23.09.2010
Сообщений: 4,877
24.12.2010, 19:33 #2
Pascal
1
2
3
4
kol:=0;
for i:=1 to n do
if a[i] mod 3=0 then
inc(kol);
0
Jazon_deenAlt
4111 / 984 / 74
Регистрация: 09.04.2009
Сообщений: 4,226
24.12.2010, 19:46 #3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
uses crt;
var
a:array[1..8] of integer;
i,k:integer;
begin
k:=0;
for i:=1 to 8 do begin
   writeln('vvedite ',i,'-ij element');
   readln(a[i]);
   if a[i] mod 3=0 then k:=k+1;
end;
writeln('takih elementov ',k);
readln;
end.
1
ComiX
0 / 0 / 0
Регистрация: 01.10.2010
Сообщений: 28
24.12.2010, 23:32 #4
а схему мона?
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.12.2010, 23:32
Привет! Вот еще темы с ответами:

Подсчитать, сколько элементов в массиве не совпадает с последним элементом. - Pascal
Подсчитать, сколько элементов в массиве не совпадает с последним элементом.

Подсчитать, сколько в массиве отрицательных, положительных и нулевых элементов - Pascal
Помогите с задачкой,буду очень признательна.(нужно решить в Паскале) Дан массив действительных чисел,разномерность которого...

Посчитать, сколько в массиве отрицательных, положительных и нулевых элементов - Pascal
Дан массив действительных чисел, размерность которого N. Посчитать, сколько в нем отрицательных, положительных и нулевых элементов

посчитать сколько чисел делятся на два - Pascal
Всем привет) Помогите написать программу на Паскале. Задача:Должна быть с циклом for. Набираем число любое и в нему прибавляем от 1...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru