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

Линейные массивы

15.03.2010, 22:23. Показов 520. Ответов 3
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Помогите плиз решить задачку. Дан массив натуральных чисел. Найти сумму элементов, кратных данному k.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.03.2010, 22:23
Ответы с готовыми решениями:

Линейные массивы
Нужно написать программу, которая проверяет – образуют ли элементы заданного массива возрастающую...

Линейные массивы.
Поправьте пожалуйста код программы в соответствии с условием. Cоставить программу, которая находит...

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

Линейные массивы
Написать программу, которая для заданной последовательности A1, A2…A2n вычисляет: Max(A1+A2n ,...

3
2 / 2 / 4
Регистрация: 28.02.2010
Сообщений: 9
15.03.2010, 23:08 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Program aaa;
Var a :Array[1..25] OF Integer;
i,k,summa:Integer;
begin
writeln('BBEDUTE k');
Readln(k);
summa:=0;
writeln('BBod massiva');
For i:=1 To 6 do begin
Readln(a[i]);
end;
For i:=1 To 6 do begin
If a[i] =0 Then Exit ;
If k mod a[i] = 0 Then summa:=a[i]+summa;
end;
writeln('summa = ',summa);
Readln;
end.
0
Retired
7727 / 2559 / 671
Регистрация: 17.10.2009
Сообщений: 5,100
15.03.2010, 23:15 3
Ngx1, надо было сразу в одном цикле и считать сумму, а в два цикла - это всё таки зря.
0
2 / 2 / 4
Регистрация: 28.02.2010
Сообщений: 9
15.03.2010, 23:24 4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Program aaa;
Var a :Array[1..25] OF Integer;
i,k,summa:Integer;
begin
writeln('BBEDUTE k');
Readln(k);
summa:=0;
writeln('BBod massiva');
For i:=1 To 6 do begin
Readln(a[i]);
If a[i] =0 Then
repeat
writeln('delehue ha holb,poBtopute BBod');
Readln(a[i]);
until a[i]>0 ;
If k mod a[i] = 0 Then summa:=a[i]+summa;
end;
writeln('summa = ',summa);
Readln;
end.
1
15.03.2010, 23:24
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.03.2010, 23:24
Помогаю со студенческими работами здесь

Линейные массивы
известны сведения о количестве осадков выпавших за каждый день мая. первого мая осадков не было ....

Линейные массивы
Дан массив действительных чисел, размерность которого N. Подсчитать сколько в нем отрицательных,...

Линейные массивы.
народ привет! я в паскале полный ноль, надеюсь на вашу помощь! вот задание: в векторе х(N)...

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


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

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

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