Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
GOIIIAN
0 / 0 / 0
Регистрация: 12.11.2010
Сообщений: 12
1

обработка одномерных массивов. ввод с клавиатуры

23.11.2010, 21:28. Просмотров 789. Ответов 1
Метки нет (Все метки)

Дан массив целых чисел a1,...,an. Найти количество и
сумму тех членов массива а1,..,аn,которые делятся на 5 и
не делятся на 7.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.11.2010, 21:28
Ответы с готовыми решениями:

Обработка одномерных массивов
Составить алгоритм и программу, которая в одномерном массиве, состоящем из n вещественных...

обработка одномерных массивов
может кто поможет как в программе записать : 1)наибольшее число идущих подряд положительных...

обработка одномерных массивов
Дан массив X(N). Определить кол-во элементов, равных первому элементу массива. Если это кол-во...

Обработка одномерных массивов
Помогите, пожалуйста, решить задачу. Т.к. учусь на химика и ничего не понимаю в паскале Задание...

Обработка одномерных массивов
Если в целочисленной последовательности нет других чисел кроме x, y, z, то упорядочить...

1
Dekio
Фрилансер
Эксперт С++
5839 / 1220 / 499
Регистрация: 23.11.2010
Сообщений: 3,377
Записей в блоге: 1
23.11.2010, 21:38 2
Лучший ответ Сообщение было отмечено GOIIIAN как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program try;
const
n=10;
var
a :array[1..n] of integer;
i,k,s :integer;
begin
k:=0; s:=0;
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
if (a[i] mod 5=0) and (a[i] mod 7<>0) then
begin
k:=k+1;
s:=s+a[i];
end;
writeln('Количество = ',k);
writeln('Сумма = ',s);
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.11.2010, 21:38

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

Обработка одномерных массивов
Помогите исправить ошибку! Он формирут 2 массива, но не формирует их так, чтобы в одном были...

Обработка одномерных массивов
помогите пожалуйста с задачей по паскалю. 1)С помощью функции Random сформировать одномерный...


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

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

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