Регистрация Спросить otvet5GPT
starprichal
29.11.2020 02:37
Информатика
Есть ответ 👍

Заполнить двумерный массив с датчика случ. чисел. сформировать одномерный массив, закинуть произведение четных элементов по каждому столбику. найти сумму элементов двумерного, для нечетных номеров столбика.

289
445
Посмотреть ответы 2

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

volkovhavoc
volkovhavoc
4,4(53 оценок)
  const n=5; var i,j,s,p: integer;     a: array [1..n,1..n] of integer;     b,c: array [1..n] of integer; begin  for i: =1 to n do  for j: =1 to n do  a[i,j]: =random(100); { вывод на экран }     for i: =1 to n do  begin    for j: =1 to n do    write(a[i,j]: 4);     writeln;   end;   { цикл по массиву }  for j: =1 to n do {цикл по колонке }  begin    s: =0;     p: =1;     for i: =1 to n do {цикл по строке}    if (a[i,j] mod 2 = 0) then    p: =p*a[i,j]    else s: =s+a[i,j];     if (p> 1) then c[j]: =p    else c[j]: =0;       if (s> 0) then b[j]: =s    else b[j]: =0;   end;       writeln('массив для четных элементов');   for i: =1 to n do write(c[i]: 10);     writeln;   writeln('массив для нечетных элементов');   for i: =1 to n do write(b[i]: 4);   end.                                                                                
динара259
динара259
4,4(73 оценок)
Program prog; uses crt; var a: array[1..100] of integer;       k,s,i: integer;       begin clrscr; for i: =1 to 10 do begin   write('a[',i,'] = ');   readln(a[i]);   end;     for i: =1 to 10 do begin   if a[i] mod 3 = 0 then begin   s: =s+a[i]; k: =k+1;   end;     end;   writeln('количество чисел, кратных 3 = ', k);   writeln('сумма чисел, кратных 3 = ', s);     end.     

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

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

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

Caktus Image

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

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

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

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

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

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

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

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

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

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

GTP TOP NEWS