Компьютер быстро вошел в нашу жизнь. Еще несколько лет назад было редкостью увидеть какой-нибудь персональный компьютер – они были, но были очень дорогие, и даже не каждая фирма могла иметь у себя в офисе компьютер. А теперь? Теперь в каждом третьем доме есть компьютер, который уже глубоко вошел в жизнь человека. Современные вычислительные машины представляют одно из самых значительных достижений человеческой мысли, влияние которого на развитие научно-технического прогресса трудно переоценить. Для многих людей сейчас компьютер уже не роскошь, а необходимый предмет домашней или рабочей обстановки.
CLSDIM A(7, 7)FOR i = 1 TO 7 FOR j = 1 TO 7 A(i, j) = INT(RND * 100) NEXT jNEXT iminj = 1: minj2 = 1FOR i = 1 TO 7 IF A(1, minj) > A(1, i) THEN minj = i END IF IF A(3, minj2) > A(3, i) THEN minj2 = i END IFNEXT iSWAP A(1, minj), A(3, minj2)maxi1 = 1: maxj1 = 1: maxi2 = 1: maxj2 = 7j = 1: k = 7FOR i = 1 TO 7 IF A(maxi1, maxj1) > A(i, j) THEN maxi1 = i: maxj1 = j END IF IF A(maxi2, maxj2) > A(i, k) THEN maxi2 = i: maxj2 = k END IF k = k - 1 j = j + 1NEXT iFOR i = 1 TO 7 FOR j = 1 TO 7 PRINT A(i, j);
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку