Есть ответ 👍

Тема: массивы найдите минимальное нечетное число в массиве(pascal abc)

136
409
Посмотреть ответы 2

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

Criss666
4,8(34 оценок)

Как вариант. 
lava777pop
4,5(95 оценок)

1. var   a: array[0..7,0..13] of integer;   b: array[0..255] of integer;   i,j,k: byte;   s: integer;   sr: real; begin   randomize;   s: =0;   k: =0;   for i: =0 to 7 do   begin     for j: =0 to 13 do     begin       a[i,j]: =random(20);       write(a[i,j]: 4);       if a[i,j] mod 2< > 0         then         begin           s: =s+a[i,j];           k: =k+1;         end;     end;     writeln;   end;   sr: =s/k;   k: =0;   writeln;   for i: =0 to 7 do     for j: =0 to 13 do     if (a[i,j] mod 2=0) and (a[i,j]> sr)       then       begin         k: =k+1;         b[k]: =a[i,j];         write(b[k]: 4);       end; end.2.  var  a: array[0..9,0..9] of integer;   b: array[0..255,0..1] of integer;   i,j,k: byte;   s,ss,min: integer;   flag: boolean; begin  randomize;   s: =0;   k: =0;   for i: =0 to 9 do  begin    for j: =0 to 9 do    begin      a[i,j]: =random(20);       write(a[i,j]: 4);       b[i,0]: =a[i,j]+b[i,0];       b[i,1]: =i;     end;     writeln;   end;   writeln;   flag: =false;   min: =10*20+1;   for i: =0 to 9 do    begin    for j: =i to 9 do      if min> b[j,0]      then        begin        min: =b[j,0];         k: =j;         flag: =true;         end;     if flag      then      begin      s: =b[i,0]; //замена      ss: =b[i,1];       b[i,0]: =b[k,0];       b[i,1]: =b[k,1];       b[k,0]: =s;       b[k,1]: =ss;       flag: =false;       min: =10*20+1;       end;     end;   for i: =0 to 9 do    begin    writeln;     for j: =0 to 9 do      write(a[b[i,1],j]: 4);     end; end.

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

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

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

Caktus Image

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

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

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

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

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

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

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

GTP TOP NEWS