Delphi для начинающих

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Delphi задача с масивами кому не сложно плз https://www.cyberforum.ru/ delphi-beginners/ thread761213.html 1)Даны два массива. Оформить в виде программы вычисление максимального из нечетных элементов массива и найти минимальный из этих максимумов. 2)Дан массив А из К целых чисел. Найти и вывести на экран все четные отрицательные элементы массива, стоящие на четных местах.	Delphi Как определить, пуст ли stringlist? text1:= TStringList.Create; Doc:=EmbeddedWB1.OleObject.Document.GetElementsByTagName('td'); for i:=0 to Doc.Length - 1 do begin El:=Doc.Item(i); text1.add(El.InnerText); end; Как узнать пуст он или нет??
Delphi В массиве отсортировать элементы, стоящие на четных местах по возрастанию https://www.cyberforum.ru/ delphi-beginners/ thread761129.html 19 В массиве отсортировать элементы, стоящие на четных местах по возрастанию. Написать консольное приложение самым простым способом массив задается вручную	Delphi Каждый из элементов одномерного массива заменить суммой цифр этого элемента 17 Каждый из элементов одномерного массива заменить суммой цифр этого элемента Написать консольное приложение самым простым способом массив задается вручную с клавиатуры https://www.cyberforum.ru/ delphi-beginners/ thread761128.html
Выяснить, имеются ли в одномерном массиве пары смежных элементов, разности между которыми не превышают t. Каждую из таких пар выдать на печать Delphi Написать консольное приложение самым простым способом,массив задается вручную с клавиатуры 15 Выяснить, имеются ли в одномерном массиве пары смежных элементов, разности между которыми не превышают t. Каждую из таких пар выдать на печать.	Delphi В одномерном массиве переставить местами элементы, находящиеся на четных и нечетных местах. Начальный и преобразованный массивы выдать на печать форма https://www.cyberforum.ru/ delphi-beginners/ thread761125.html Написать консольное приложение.Массивы заполняются вручную с клавиатуры.самым простым способом заранее спасибо 14 В одномерном массиве переставить местами элементы, находящиеся на четных и нечетных местах. Начальный и преобразованный массивы выдать на печать форматным выводом в одну строку.
Delphi Определить является ли заданная квадратная матрица магическим квадратом (сумма элементов каждой строки и столбца одна и та же величина) https://www.cyberforum.ru/ delphi-beginners/ thread761103.html Нужно написать программы(консольное приложение) в делфи самым простым способом без процедуры,функции и без рандомайза 24. Определить является ли заданная квадратная матрица магическим квадратом (сумма элементов каждой строки и столбца одна и та же величина))	Delphi Даны две матрицы. В каждой матрице вычислить минимум из элементов, стоящих во второй половине, относительно строк( количество строк четное),, и найти Нужно написать программы(консольное приложение) в делфи самым простым способом без процедуры,функции и без рандомайза 20. Даны две матрицы. В каждой матрице вычислить минимум из элементов, стоящих во второй половине, относительно строк( количество строк четное),, и найти максимальный из них.
Delphi indy 10 Поставил indy 10,так как был необходим модyль IdAttachmentFile,но как оказалось после yстановки в 10 инди его тоже НЕТ,с чем это может быть связано и можно ли заменить чем ни бyдь дрyгим? https://www.cyberforum.ru/ delphi-beginners/ thread761034.html	Delphi Защита формы https://www.cyberforum.ru/ delphi-beginners/ thread760971.html Допyстим на форме едит,как зделать,если определенный текст в едит пишиться,например 'привет',форма остается открытой,а если текст не правильный например 'приветтт',то форма закрывается
Компонент Edit Delphi Суть проблемы. На форме есть компонент Edit, в который вводится число для решения уравнения. В свойстве Text, я ввёл число, что б при запуске было сразу какието данные. Но после запуска программы если не изменять значение едита, выдаёт ошибку " Invalid floating point operation", но если при запуске программы стереть значение едита и написать заново вручную это же число, то всё работает...	Delphi TListView управление ярлыками, как на раб. столе винды Скажите, пожалуйста, как в TListView реализовать перетаскивание ярлыков друг относительно друга - т.е. подобие того как реализован раб. стол в Winows? Добавлено через 7 минут Или быть может уже есть готовый класс надстройка для реализации возможностей раб. стола винды через TListView? https://www.cyberforum.ru/ delphi-beginners/ thread760918.html

kamelot05

0 / 0 / 0

Регистрация: 05.05.2012

Сообщений: 18

14.01.2013, 15:30

Даны три одномерных массива. В каждом массиве вычислить сумму четных элементов и вывести на экран максимальную из них - Delphi - Ответ 3999637

14.01.2013, 15:30. Показов 2242. Ответов 13

Метки (Все метки)

Ответ

Вам ранее писали код, в другой теме !!!
Выложу этот код еще раз !

Delphi

begin
readln(n);//1 массив
Sa:=0;
for i:=1 to n do
 begin
 readln(a[i]);
 if a[i] mod 2 =0 then Sa:=Sa+a[i];//сумма четных
 end;
 
readln(m);//2 массив
Sb:=0;
for i:=1 to m do
 begin
 readln(b[i]);
 if b[i] mod 2 =0 then Sb:=Sb+b[i];//сумма четных
 end;
 
 
readln(k);//3 массив
Sc:=0;
for i:=1 to k do
 begin
 readln(a[i]);
 if c[i] mod 2 =0 then Sc:=Sc+c[i];//сумма четных
 end;
 
//осталось найти максимальное среди Sa Sb Sc

Вернуться к обсуждению:
Даны три одномерных массива. В каждом массиве вычислить сумму четных элементов и вывести на экран максимальную из них Delphi

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

14.01.2013, 15:30

Готовые ответы и решения:

В каждом массиве вычислить сумму четных элементов и вывести на экран максимальную из них
13 Даны три одномерных массива. В каждом массиве вычислить сумму четных элементов и вывести на...

Даны два одномерных массива размера n и s/ для первого массива вычислить сумму четных элеменртов, для второго - сумма нечетных элементов
Даны два одномерных массива размера n и s/ для первого массива вычислить сумму четных элеменртов,...

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

Даны 2 массива.Заменить в каждом из них первые K элементов на противоположные по знаку. & В заданном массиве из N строк переставить строки...
Здравствуйте. Помогите пожалуйста с двумя задачками. 1) Даны 2 массива А(12) и В(9) . Заменить...

	14.01.2013, 15:30

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

14.01.2013, 15:30

Помогаю со студенческими работами здесь

Создать три массива согласно условию; в каждом массиве найти сумму положительных элементов
Составить программу решения задачи в соответствии с вариантом. Задано три массива вещественных...

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

Даны три массива. В каждом из них найти минимальный элемент и заменить его квадратом
Ребят, помогите решить задачу.. Даны три массива. В каждом из них найти минимальный элемент и...

Даны три числа, вывести на экран наименьшее из них.
Даны три числа, вывести на экран наименьшее из них.

Наверх