В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
yliatroshenko
yliatroshenko
26.05.2021 20:39 •  Информатика

1. дан массив, состоящий из 15 элементов. элементы вводятся случайным образом. найти количество элементов, кратных 3. (промежуток от 10 до 30) 2. дан массив, состоящий из 10 элементов. элементы вводятся случайным образом из промежутка от [-10,+10]. найти количество элементов, которые четны и положительны {используем в условии связку и=and} в виде программы для паскаля!

Показать ответ
Ответ:
Aki1Nozomi
Aki1Nozomi
24.09.2020 23:16
1)var a:array[1..15] of integer;
i,s:integer;
begin
randomize;
for i:=1 to 15 do a[i]:=random(20)+10;
for i:=1 to 15 do if a[i] mod 3=0 then s:=s+1;
writeln(s);
end.
2)var  a: array[1..10] of integer; 
i, s: integer;
begin 
randomize; 
for i := 1 to 10 do a[i] := random(21) - 10; 
for i := 1 to 10 do if (a[i] > 0) and (a[i] mod 2 = 0) then s := s + 1; 
writeln(s);
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота