Создать программу, которая позволяет сформировать одномерный числовой массив из 20 элементов

@Darer322 · Регистрация: 07.12.2015

Author24 — интернет-сервис помощи студентам

Создать программу, которая позволяет сформировать одномерный числовой массив из 20 элементов. Также в текстовый файл необходимо вывести результат, представляющий собой сумму всех элементов кратных 4.

@AHBAR · 08.12.2015, 13:54

Delphi

program summ;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
VAR
i,s:Integer;
a:Array[1..20] of integer;
f:TextFile;
begin
  { TODO -oUser -cConsole Main : Insert code here }
//for i:=1 to 20 do begin write('a[',i,']='); readln(a[i]); end; // заполнение массива с клавиатуры
s := 0;
for i:=1 to 20 do BEGIN
a[i]:=random(100);  // заполнение массивоа случайными целыми
if (a[i] mod 4 = 0) then s := s + a[i];  // если кратен 4 то суммируем
writeln(a[i]);
END;
writeln('summa=',s);
assignfile(f,'summa.txt');
rewrite(f);
writeln(f,s);
closefile(f);
readln;
end.

Добавлено через 36 минут
одно и тоже задание в разных темах!!

@droider · 08.12.2015, 14:16

Darer322, писал уже ранее в Вашей же теме
Применение файлов при создании программы Делфи
Не дублируйте темы!

@Darer322 · 09.12.2015, 06:30 **[ТС]**

ваш ответ не подходит мне нужна программа с компонентами тоесть Write readln их не должно быть(простите за дублирование темы)

@droider · 09.12.2015, 09:25

Сообщение от Darer322

ваш ответ не подходит

Ответ более чем подходит, т.к. алгоритм решения задачи в нем полностью реализован.

Сообщение от Darer322

мне нужна программа с компонентами

Так разместите на форме необходимые компоненты (TStringGrid, TButton), внесите небольшие изменения в несколько строчек.
Вас этому не учили или Вам лень сделать что-то самому?

Новые блоги и статьи
Как использовать RabbitMQ в Go (Golang) bytestream 22.01.2025 RabbitMQ представляет собой надежный и широко используемый брокер сообщений, который играет ключевую роль в построении современных распределенных систем и микросервисной архитектуры. В основе работы. . .	Как преобразовать список списков в простой список в Python bytestream 22.01.2025 При работе с Python разработчики часто сталкиваются с необходимостью обработки сложных структур данных, среди которых особое место занимают вложенные списки. Эти структуры представляют собой списки,. . .	Что такое GUID / UUID и как их создать bytestream 22.01.2025 В мире разработки программного обеспечения существует постоянная потребность в уникальной идентификации объектов, записей и ресурсов. Эта задача становится особенно актуальной в распределенных. . .	Как добавить пустую директорию в репозиторий Git bytestream 22.01.2025 При работе с системой контроля версий Git разработчики часто сталкиваются с ситуацией, когда необходимо сохранить пустую директорию в репозитории. Данная задача может показаться простой на первый. . .	Как валидировать адрес email в JavaScript bytestream 22.01.2025 JavaScript, как основной язык веб-разработки, предоставляет разработчикам множество инструментов для реализации эффективной валидации email-адресов. От простых встроенных решений до сложных. . .	Как заменить все вхождения подстроки в JavaScript bytestream 22.01.2025 Строки в JavaScript представляют собой неизменяемые последовательности символов, что делает их обработку особенно интересной с точки зрения оптимизации и выбора правильного подхода к решению задач. . . .
Управление версиями пакетов в Node.js. В чем разница между тильдой (~) и кареткой (^) в package.json bytestream 22.01.2025 В современной разработке программного обеспечения управление версиями пакетов играет ключевую роль в обеспечении стабильности и надежности проектов. Node. js, как одна из самых популярных платформ для. . .	Аутентификация на сайте с помощью формы bytestream 21.01.2025 В современном цифровом мире безопасная аутентификация становится краеугольным камнем защиты веб-приложений и пользовательских данных. Каждый день миллионы людей используют различные онлайн-сервисы,. . .	Как получить индекс в цикле for в Python bytestream 21.01.2025 При работе с коллекциями данных в Python часто возникает необходимость не только получить доступ к элементам последовательности, но и знать их позицию в процессе итерации. Индексация в циклах. . .	Как определить адрес, из которого локальный репозиторий Git был клонирован bytestream 21.01.2025 В современной разработке программного обеспечения система контроля версий Git стала неотъемлемой частью рабочего процесса. При работе с Git разработчики часто сталкиваются с необходимостью. . .	Какая разница между операторами == и === в сравнениях в JavaScript bytestream 21.01.2025 В мире веб-разработки JavaScript занимает особое место как динамический язык программирования, предоставляющий разработчикам широкий набор инструментов для создания интерактивных веб-приложений. . . .	Из чего и как собрать свой домашний кинотеатр bt_guru 21.01.2025 Создание домашнего кинотеатра: от идеи до реализации В современном мире домашний кинотеатр стал неотъемлемой частью комфортного жилого пространства, предоставляя возможность наслаждаться. . .

@Darer322 1 / 1 / 1 Регистрация: 07.12.2015 Сообщений: 34
		1
	Создать программу, которая позволяет сформировать одномерный числовой массив из 20 элементов 08.12.2015, 11:51. Показов 907. Ответов 4 Метки нет (Все метки) Создать программу, которая позволяет сформировать одномерный числовой массив из 20 элементов. Также в текстовый файл необходимо вывести результат, представляющий собой сумму всех элементов кратных 4. 0

@droider 4918 / 2786 / 855 Регистрация: 04.10.2012 Сообщений: 10,148
	08.12.2015, 14:16	3
	Darer322, писал уже ранее в Вашей же теме Применение файлов при создании программы Делфи Не дублируйте темы! 0

@Darer322 1 / 1 / 1 Регистрация: 07.12.2015 Сообщений: 34
	09.12.2015, 06:30 [ТС]	4
	ваш ответ не подходит мне нужна программа с компонентами тоесть Write readln их не должно быть(простите за дублирование темы) 0

@droider 4918 / 2786 / 855 Регистрация: 04.10.2012 Сообщений: 10,148
	09.12.2015, 09:25	5
	Сообщение от Darer322 ваш ответ не подходит Ответ более чем подходит, т.к. алгоритм решения задачи в нем полностью реализован. Сообщение от Darer322 мне нужна программа с компонентами Так разместите на форме необходимые компоненты (TStringGrid, TButton), внесите небольшие изменения в несколько строчек. Вас этому не учили или Вам лень сделать что-то самому? 0