Есть ответ 👍

с информатикой! 1. Заполните массив из 25 целых чисел случайными числами в диапазоне [0,100) и подсчитайте количество четных элементов. 2. Заполните массив из 10 целых чисел случайными числами в диапазоне [10,50) и вычислите сумму чисел, кратных 3, и произведение чисел меньше 35.​

202
294
Посмотреть ответы 2

Ответы на вопрос:

IvanIvan777
4,7(28 оценок)

 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.


с информатикой! 1. Заполните массив из 25 целых чисел случайными числами в диапазоне [0,100) и подсч
с информатикой! 1. Заполните массив из 25 целых чисел случайными числами в диапазоне [0,100) и подсч

Pascal   var     a,b,c : integer;       begin     readln (a);     b : = a div 10;     // узнать первую цифру двухзначного числа     c : = a mod 10; // узнать последнюю цифру числа     writeln (c,b);   end.

Реши свою проблему, спроси otvet5GPT

  • Быстро
    Мгновенный ответ на твой вопрос
  • Точно
    Бот обладает знаниями во всех сферах
  • Бесплатно
    Задай вопрос и получи ответ бесплатно

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

Caktus Image

Есть вопросы?

  • Как otvet5GPT работает?

    otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
  • Сколько это стоит?

    Проект находиться на стадии тестирования и все услуги бесплатны.
  • Могу ли я использовать otvet5GPT в школе?

    Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
  • В чем отличия от ChatGPT?

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

Подпишись на наш телеграмм канал

GTP TOP NEWS