Ответы на вопрос:
1 Задание
//Ищет количество четных цифр с диапазоне от 0 до 100, 25 чисел
Program v1;
var a:array[1..25]of integer;
i,kol:integer;
begin
kol:=0;
randomize;
for i:=1 to 25 do a[i]:=random(100)+0;
write('Значение матрицы: ');
for i:=1 to 25 do write(a[i]:5); writeln;
for i:=1 to 25 do if a[i] mod 2=0 then kol:=kol+1;
if kol>0 then
writeln('Количество четных цифр: ',kol) else
writeln('Четных элементов нет');
end.
2 задание
//Ищет количество элементов матрицы кратных 3 и произведение жлементов матрицы меньше 35 в диапазоне от 50 до 10, 10 чисел
Program v1;
var a:array[1..10]of integer;
i,sum,p:integer;
begin
sum:=0;
p:=1;
randomize;
for i:=1 to 10 do a[i]:=random(40)+10;
write('Значение матрицы: ');
for i:=1 to 10 do write(a[i]:5); writeln;
for i:=1 to 10 do begin if a[i] mod 3=0 then sum:=sum+a[i];
if a[i]<35 then p:=p*a[i]
end;
if sum>0 then
writeln('Сумма элементов матрицы кратных 3: ', sum ,' ','Произведение элементов матрицы меньше 35: ',p) else
writeln('Элементов кратных 3 нет');
end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
эмир3101.08.2022 03:12
-
Самира27110616.09.2020 15:18
-
6586666610.08.2022 11:43
-
anishenkovayana23.01.2020 02:24
-
sainegorova20131.03.2020 05:30
-
ВЕ200727.07.2022 16:44
-
AruzhanDias20.08.2022 14:27
-
elviraloveelvi20.03.2022 05:40
-
artisx11.11.2021 08:32
-
daniil1453707.07.2021 06:57
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.