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

@thedanik1995 · Регистрация: 01.11.2012

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

Дан массив целых чисел. Найти:
а) сумму нечетных чисел
б) сумму элементов кратных заданному числу
Turbo Pascal

@domovou2.0 · 01.11.2012, 21:45

Вроде бы так:

Pascal

var a:array [1..1000,1..1000] of integer;
    n,m,i,j,sum,krel,sum2:integer;
begin
write(' NxM= ');
readln(n,m);
write('krat chislo= ');
readln(krel);
sum:=0;
sum2:=0;
for I:= 1 to n do
    begin
    for j:= 1 to m do
        begin
        a[i,j]:=random(101);
        write(a[i,j]:3);
        if a[i,j] div 2 <> 0 then sum:=sum+a[i,j];
        if krel<>0 then
           if a[i,j] div krel=0 then sum2:=a[i,j]+sum2
        end;
    writeln;
    end;
writeln('sum necet= ',sum,#13,'sum krat ',krel,' = ',sum2);
readln;
end.

Новые блоги и статьи
В чем отличие между INNER JOIN и OUTER JOIN bytestream 22.01.2025 В современных базах данных информация часто распределена между множеством взаимосвязанных таблиц, что делает операции объединения JOIN неотъемлемой частью работы с SQL. Эти операции позволяют. . .	Как сделать первую букву заглавной в JavaScript bytestream 22.01.2025 JavaScript предоставляет разработчикам множество инструментов для эффективной работы с текстовыми данными. Одной из часто встречающихся задач при обработке строк является преобразование первой буквы. . .	Что такое Big O нотация и алгоритмическая сложность bytestream 22.01.2025 Введение в алгоритмическую сложность В мире разработки программного обеспечения эффективность алгоритмов играет crucial роль в создании качественных приложений. Алгоритмическая сложность. . .	Как решать конфликты слияния (merge) в Git bytestream 22.01.2025 Конфликты слияния в системе контроля версий Git возникают в ситуациях, когда две или более ветки разработки содержат несовместимые изменения в одних и тех же участках кода. Эти конфликты представляют. . .	Как использовать регулярные выражения bytestream 22.01.2025 Регулярные выражения представляют собой мощный инструмент для работы с текстовыми данными, который позволяет осуществлять поиск, проверку и манипуляцию строками на основе определенных шаблонов. Этот. . .	Как выйти из Vim bytestream 22.01.2025 Vim (Vi IMproved) представляет собой один из самых влиятельных текстовых редакторов в истории компьютерной индустрии, эволюционировавший из своего предшественника Vi, созданного Биллом Джоем в 1976. . .
NoSQL базы данных: что это такое и какие существуют bytestream 22.01.2025 В современную эпоху цифровой трансформации объемы данных растут экспоненциально, создавая новые вызовы для традиционных систем управления базами данных. NoSQL (Not Only SQL) представляет собой. . .	Обновление исследования от команды MCM (январь 2025 г.) Programma_Boinc 22.01.2025 Обновление исследования от команды MCM (январь 2025 г. ) Мы продолжаем изучать молекулярные сигнатуры, связанные с раком легких, с текущим фокусом на GCM1, факторе транскрипции, участвующем в. . .	Как работать с Kafka в Go (Golang) bytestream 22.01.2025 Apache Kafka представляет собой распределенную платформу потоковой передачи данных, которая произвела революцию в области обработки событий и интеграции микросервисов. Эта система, изначально. . .	Как использовать RabbitMQ в Go (Golang) bytestream 22.01.2025 RabbitMQ представляет собой надежный и широко используемый брокер сообщений, который играет ключевую роль в построении современных распределенных систем и микросервисной архитектуры. В основе работы. . .	Как преобразовать список списков в простой список в Python bytestream 22.01.2025 При работе с Python разработчики часто сталкиваются с необходимостью обработки сложных структур данных, среди которых особое место занимают вложенные списки. Эти структуры представляют собой списки,. . .	Что такое GUID / UUID и как их создать bytestream 22.01.2025 В мире разработки программного обеспечения существует постоянная потребность в уникальной идентификации объектов, записей и ресурсов. Эта задача становится особенно актуальной в распределенных. . .

@thedanik1995 0 / 0 / 0 Регистрация: 01.11.2012 Сообщений: 3
		1
	Найти сумму элементов массива, кратных заданному числу 01.11.2012, 21:23. Показов 3820. Ответов 1 Метки нет (Все метки) Дан массив целых чисел. Найти: а) сумму нечетных чисел б) сумму элементов кратных заданному числу Turbo Pascal 0

	01.11.2012, 21:45

Опции темы

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

Решение