Форум программистов, компьютерный форум, киберфорум
Lazarus
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
1 / 1 / 0
Регистрация: 07.11.2016
Сообщений: 9
1

Одномерный массив: вычислить сумму элементов, индексы которых кратны трем

12.12.2016, 13:33. Показов 1131. Ответов 3
Метки нет (Все метки)

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

Решение на паскале.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var a:array[1..100]of integer;
i,n,Sum:integer;
begin
Sum:=0;
write('Размер массива =');
read(n);
for i:=1 to n do
read (a[i]);
for i:=1 to n do
if (a[i] mod 3=0) then Sum:=Sum+a[i];
writeln('Sum=',Sum);
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.12.2016, 13:33
Ответы с готовыми решениями:

Вывести индексы тех элементов, значения которых кратны 3 и 5
Вывести индексы тех элементов, значения которых кратны 3 и 5. procedure...

Сформировать одномерный массив из целых чисел. Вывести на экран индексы тех элементов, которые кратны трем и пяти
Помогите, кто сможет. Буду благодарен.

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

Вычислить сумму элементов массива, индексы которых кратны 3
Заполнить одномерный массив из 15 элементов случайными целыми числами. Вывести массив на чистом...

__________________
3
Заводной мандарин
1065 / 627 / 239
Регистрация: 05.05.2015
Сообщений: 3,544
Записей в блоге: 2
12.12.2016, 23:05 2
k84lot, Вы решили выложить на форум шпаргалки? Или у Вас есть вопросы по программе, которые Вы забыли озвучить?
0
1 / 1 / 0
Регистрация: 07.11.2016
Сообщений: 9
13.12.2016, 15:46  [ТС] 3
Ход выполнения написан на Pascal, не же нужно, написать программу на lazarus.

Добавлено через 12 часов 51 минуту
Joey, Я уже решил сам. Вот так пишется на Лазарусе! Мне нужно было решение с Паскаля на Лазарус оформить! Так же как и в другой теме, где я не могу записать ее на Лазарусе!
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.Button1Click(Sender: TObject); 
var a:array[1..5]of integer; 
i,Sum:integer; 
begin 
randomize; 
Sum:=0; 
for i:=1 to 5 do 
a[i]:=random(9); 
for i:=1 to 5 do 
if (a[i] mod 3=0) then Sum:=Sum+a[i]; 
for i:=1 to 5 do 
edit1.text:=edit1.text+inttostr(a[i])+' '; 
label4.caption:=inttostr(Sum); 
end;
1
Заводной мандарин
1065 / 627 / 239
Регистрация: 05.05.2015
Сообщений: 3,544
Записей в блоге: 2
13.12.2016, 19:30 4

Не по теме:

Цитата Сообщение от k84lot Посмотреть сообщение
на Лазарусе!
Цитата Сообщение от k84lot Посмотреть сообщение
на Лазарус оформить!
Цитата Сообщение от k84lot Посмотреть сообщение
на Лазарусе!
сколько восклицательных знаков...



k84lot, на будущее - не пишите "нужно написать на лазарус", если имеете ввиду, что Ваше приложение консольное, а Вам нужно переделать его в графическое
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.12.2016, 19:30

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Вычислить сумму и произведение элементов массива, индексы которых кратны 3
procedure TForm1.ResButtonClick(Sender: TObject); var i:integer; res:integer; s:integer; begin...

Вычислить сумму и произведение элементов массива, индексы которых кратны заданному числу
Столкнулся вот с такой задачей, а моих скудных знаний C# не хватает на нее. Заполнить одномерный...

Определить разность между суммой элементов c четными индексами и суммой элементов, индексы которых кратны трем
Дан массив вещественных чисел Z (16). Определить разность между суммой элементов c четными...

Определить разность между суммой элементов с четными индексами и суммой элементов, индексы которых кратны трем
Дан массив вещественных чисел Z(16). Определить разность между суммой элементов с четными индексами...


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

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

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