Дана матрица размера 5*10. вывести номер ее последнего столбца, содержащего только положительные элементы. если таких столбцов нет, то вывести 0. язык fortran77
231
284
Ответы на вопрос:
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
Это на паскале буква а 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
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
nastyakopylova717.11.2020 01:09
-
dsg189g14.09.2020 02:36
-
DFSAFSA03.10.2020 13:14
-
zuldzbeysengaz21.02.2023 10:59
-
mrgold201120.01.2020 10:18
-
malina80415.03.2020 21:20
-
Ghhhuj10.07.2020 15:57
-
nuriknur200123.07.2022 02:56
-
lam3r02.07.2021 01:53
-
242Bob09.03.2021 21:43
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.