Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Tillka
0 / 0 / 1
Регистрация: 05.02.2016
Сообщений: 14
#1

Задача с одномерным массивом - Delphi

10.02.2016, 10:59. Просмотров 365. Ответов 8
Метки нет (Все метки)

Помогите решить пожалуйста.
Дан массив А(10). Вычислить сумму элементов массива кратных трем и их количество.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.02.2016, 10:59
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Задача с одномерным массивом (Delphi):

Задача с одномерным массивом
Добрый день. Помогите, пожалуйста, решить задание: Известно, что в одномерном...

Работа с одномерным массивом
Здравствуйте, есть пара задач. 1. Разделить все четные элементы массива на...

работа с одномерным массивом
помогите массив я сделала а как выполнить условия совсем не пойму. Дан массив...

Работа с одномерным массивом
Добрый день. Возникла проблема при написании программы, обрабатывающий...

Помогите с ОДНОМЕРНЫМ массивом)
Дан одномерный массив H(n), заполненными случайными целыми числами от -F до F....

Операции с одномерным массивом
Задание: Организвать заполнение массива случайными числами из диапазона от 1 до...

8
qwertehok
2195 / 2185 / 597
Регистрация: 29.08.2013
Сообщений: 14,588
10.02.2016, 11:02 #2
покажите что не получается
0
Tillka
0 / 0 / 1
Регистрация: 05.02.2016
Сообщений: 14
10.02.2016, 11:06  [ТС] #3
Я не знаю как оформляются сами массивы и Randomize.
0
qwertehok
2195 / 2185 / 597
Регистрация: 29.08.2013
Сообщений: 14,588
10.02.2016, 11:10 #4
Цитата Сообщение от Tillka Посмотреть сообщение
Я не знаю как оформляются сами массивы
откройте учебник

Цитата Сообщение от Tillka Посмотреть сообщение
Randomize.
а он вам зачем?
0
Tillka
0 / 0 / 1
Регистрация: 05.02.2016
Сообщений: 14
10.02.2016, 11:33  [ТС] #5
Randomize для того, чтобы числа выводились рандомно. Их пользователь не вводит
0
qwertehok
2195 / 2185 / 597
Регистрация: 29.08.2013
Сообщений: 14,588
10.02.2016, 11:43 #6
Цитата Сообщение от Tillka Посмотреть сообщение
Randomize для того, чтобы числа выводились рандомно.
хорошо

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var i,s,k:integer;
a:array[1..10] of integer;
begin
randomize;
s:=0; // сумма
k:=0; // количество
  
for i:=1 to 10 do begin
  a[i]:=random(10);
  если a[i] кратно трем то 
    увеличить k на 1
    увеличить сумму на сумму + a[i]
end;
 
showmesage('сумма='+IntToStr(s)+#10#13+'количество='+IntToStr(k));
end;
1
Tillka
0 / 0 / 1
Регистрация: 05.02.2016
Сообщений: 14
10.02.2016, 11:50  [ТС] #7
Спасибо за решение.
0
qwertehok
2195 / 2185 / 597
Регистрация: 29.08.2013
Сообщений: 14,588
10.02.2016, 11:55 #8
Tillka, это не полное решение
0
Tillka
0 / 0 / 1
Регистрация: 05.02.2016
Сообщений: 14
10.02.2016, 11:58  [ТС] #9
Я понял, дальше сам разберусь.
0
10.02.2016, 11:58
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.02.2016, 11:58
Привет! Вот еще темы с решениями:

работа с одномерным массивом, компонента тмемо
Дан миссив натуральных чисел А(10). Найти сумму элементов, кратных данному К. ...

работа с одномерным массивом, компонента ТМЕМО
При поступлении в вуз абитуриенты, получившие "двойку" на первом экзамене, ко...

Создать программу с одномерным массивом в Delphi
Массив целых чисел содержит 10 элементов. Из исходного массива получить новый,...

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


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

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

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