Регистрация Спросить otvet5GPT
JaspeR9
08.09.2021 05:50
Информатика
Есть ответ 👍

Спо информатике ! (pascal abc) 1)дано 40 случайных целых чисел,∈ (20; 82). подсчитать количество чётных чисел , кратных 3. вывести эти числа на экран. 2)найти наименьшее из 20 случайных целых чисел ,∈ (20; 370) вывести результат на экран , само число и его номер. заранее , огромное !

175
448
Посмотреть ответы 2

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

maksimananchenko
maksimananchenko
4,5(96 оценок)
1) const   n=40; var   a: array [1..n] of integer;   i,k: integer; begin   randomize;   k: =0;   writeln('исходный массив');   for i: =1 to n do begin a[i]: =random(63)+20; write(a[i],' ') end;   writeln; writeln('четные элементы, кратные 3');   for i: =1 to n do       if a[i] mod 6=0 then begin inc(k); write(a[i],' ') end;   writeln; writeln('отобрано элементов: ',k) end. пример исходный массив 43 49 27 45 57 20 54 22 74 79 57 64 30 41 67 58 36 68 79 46 28 74 61 21 80 57 50 24 80 36 27 57 38 38 41 71 50 69 39 48 четные элементы, кратные 3 54 30 36 24 36 48 отобрано элементов: 6 2) const   n=20; var   a: array [1..n] of integer;   i,imin: integer; begin   randomize;   writeln('исходный массив');   imin: =1;   for i: =1 to n do begin       a[i]: =random(351)+20;       write(a[i],' ');       if a[i]< a[imin] then imin: =i       end;   writeln;   writeln('минимальный элемент a[',imin,']=',a[imin]) end. пример исходный массив 292 54 248 310 181 210 263 284 255 156 177 340 173 39 108 144 270 40 318 155 минимальный элемент a[14]=39
ProKingcool
ProKingcool
4,6(38 оценок)
Uses crt; var a,b,c: integer; begin     a: =3;     c: =3;     b: =0; while b< > 33 do begin a: =a+b; b: =b+c; end; writeln(a); readln end.

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

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

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

Caktus Image

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

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

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

  • Сколько это стоит?

    Проект находиться на стадии тестирования и все услуги бесплатны.

  • Могу ли я использовать otvet5GPT в школе?

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

  • В чем отличия от ChatGPT?

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

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

GTP TOP NEWS