Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
nicita13254769p06wrf
13.03.2022 16:29 •
Информатика
40 элементов массива найти сумму отрицательных элементов кратных 5
Показать ответ
Ответ:
dashakostyk
02.10.2020 22:39
For i:=1 to 40 do begin
if (a[i]<0) and (a[i] mod 5 =0) then k:=k+a[i];
end;
writeln;
write('сумма ',k);
0,0
(0 оценок)
Ответ:
KOTIK22811
02.10.2020 22:39
Var a:array[1..40] of integer;
i,s:integer;
begin
s:=0;
for i:=1 to 40 do begin
a[i]:=random(200)-100;
Writeln('a[',i,']=',a[i]);
if (a[i] mod 5=0) and (a[i]<0) then
s:=s+a[i];
end;
Writeln('Сумма отрицательных элементов кратных 5 равна: ',s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
lalalllaaaallllalala
12.10.2020 04:46
Заданы два массива а(n) и в(m). в каждом из массивов найти наименьшее значение и умножить на него все элементы массивов. на печать вывести исходные и преобразованные массивы.(требуется...
Vladimir26ru
30.05.2022 15:59
На каких уроках в школе можно использовать программу excel кроме информатики ? и почему ? (точнее для чего )...
Davicc
23.01.2022 00:25
Постройте логическую схему, соответствующее данному логическому выражению: ((x1 & x2 & x3) & ( ¬ x2 λ ¬ x3)) λ ¬ x4 . вычислите значение выражения для: а) x1=x2=1, x3=x4=0;...
милка327
01.07.2020 02:58
Составьте программу с клавиатуры которая выводит на экран нечетные числа в диапазоне от 20 до 50...
marfa228
28.05.2021 03:45
Какова время (в секундах )передачи полного объема данных по каналу связи если известно , что передано 1200 кбайт данный,причем передача шла со скоростью 60 кбит в секунду ю...
Araikavipv
04.01.2022 20:58
Что будет выведено на экран после выполнения следующей программы:var a,s:real;begin;a:=3;s:=a*a;writeln( s= ,s:3:1);end....
katyastulova23
03.09.2020 11:07
Используя цикл repeat, вывести на экран первые n членов последовательности: 1, 3, 7, 15, 31, 63, (turbo pascal)...
Lubov080301
03.09.2020 11:07
Каковы основные элементы области диаграммы и их назначение?...
yuldumenko
03.09.2020 11:07
Тема: одномерные массивы. в паскале в массиве даны 10 целых чисел. нужно найти сумму четных чисел....
мопс73
28.02.2023 02:18
Пока человек существует,он будет себя открывать .Как вы понимаете смысл высказывания Е.М.Богата?Как вы думаете, какими человек открывает себя и зачем?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
if (a[i]<0) and (a[i] mod 5 =0) then k:=k+a[i];
end;
writeln;
write('сумма ',k);
i,s:integer;
begin
s:=0;
for i:=1 to 40 do begin
a[i]:=random(200)-100;
Writeln('a[',i,']=',a[i]);
if (a[i] mod 5=0) and (a[i]<0) then
s:=s+a[i];
end;
Writeln('Сумма отрицательных элементов кратных 5 равна: ',s);
end.