Есть ответ 👍

Дана матрица размера 5*10. вывести номер ее последнего столбца, содержащего только положительные элементы. если таких столбцов нет, то вывести 0. язык fortran77

231
284
Посмотреть ответы 2

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


    program main     integer i,j,k     logical flag     integer a,b     dimension a(5,10)     dimension b(50)     equivalence (a,b)     read *,(b(i),i=1,50)     do 70 i=1,5           print *,(a(i,j),j=1,10) 70 continue       do 100 j=10,1,-1       flag=.true.       k=j       do 200 i=1,5             if (a(i,j) .le. 0) then                              flag=.false.                 goto 100             end if 200    continue       if (flag) goto 300 100 continue 300 print *,'k=',k end program main
bosi9797
4,6(27 оценок)

Это на паскале  буква а var  i, o, k, i2: integer;   s, s1: string;   i1: char;   a: array[0..25]  of char;   begin  readln(s);   readln(k);   i : =  0;   for i1 : = 'a' to 'z' do  begin    a[i]  : = i1;     inc(i);   end;   for i : =  1  to length(s)  do  begin    for i2 : =  0  to  25  do      if a[i2]  = s[i]  then        write(  a[(26+(i2 - k))  mod  26])  endend.

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

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

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

Caktus Image

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

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

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

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

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

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

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

GTP TOP NEWS