Найдите сумму элементов массива (50 элементов из [-50; 50]) кратных 7.

Ответ:

nastyshabos

01.07.2020 18:52

Program test;
const n = 5;
var i,sum:integer;
a:array [1..n] of integer;
begin
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
if a[i] mod 7 =0 then sum:=sum+a[i];
writeln(sum);
end.

0,0(0 оценок)

Ответ:

anisiloppoosa

01.07.2020 18:52

Во вложении

0,0(0 оценок)

Популярные вопросы: Информатика

ученик11111023531

01.05.2020 15:25

Информатика, 9 класс 1. Выберите правильное описание переменной типа массив: 1) var a:array[1…10] of integer; 3) var a:array[1..10] of integer; 2) var a:array[1-10] of integer;...

killskorpion19

15.06.2020 17:05

а то я не могу справиться...

NastjaKucera13

07.11.2020 14:53

Ученик написал несколько условия на языке Питон. Но половина этих условий записана неправильно. Отметь правильные варианты (триправильных варианта)*х== 0х=0х=0х 0x = 0х=0...

WFCPDF

13.09.2020 20:16

Запишите представленное математическое выражение на языке Python ...

49583

25.05.2021 21:04

Что такое слайд? ответьте кратко и ясно ?...

dasa2208

17.06.2021 22:16

1определить максимальное количество страниц текста, содержащего по 80 символов в каждой строке и 64 строки на странице, которое может содержать файл, сохраненный на диске...

dasausakova526

17.06.2021 22:16

Определить, какой(-ие) объем(-ы) информации содержит экран монитора, разрешающая которого 1280x720 точек, если каждая точка может отображать 256 цветов....

Карамелла

14.05.2023 04:05

Напишите программу для следующей задачи.В секцию ментальной арифметики принимаются дети в возрасте от 4 до 11 лет. Определите может ли ученик записаться на данный курс (Да/Нет)?...

тупоумная2525

12.08.2020 19:11

С ЗАДАЧЕЙдля составления отчета в систему вводят результаты ЕГЭ по информатике. Составьте программу, запрашивающую количество учеников, проходной , а затем ЕГЭ каждого школьника....

polina1362

19.11.2021 19:48

)даны три четырехзначных,целых числа.нужно вывести число с наименьшей суммой цифр. скиньте решение в паскале) заранее )...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку