Дана квадратная матрица порядка n. найти количество четных элементов квадратной матрицы, расположенных ниже побочной диагонали.
300
500
Ответы на вопрос:
// pascalabc.net 3.3, сборка 1625 от 17.01.2018 // внимание! если программа не работает, обновите версию! begin var n: =readinteger('количество строк (столбцов) в матрице: '); writeln('*** исходная матрица ***'); var a: =matrrandom(n,n,-99,99); a.println(4); writeln(4*a.colcount*'-'); var k: =0; for var i: =1 to n-1 do for var j: =n-i to n-1 do if a[i,j].iseven then k+=1; writeln('количество четных элементов ниже побочной диагонали: ',k) end. пример количество строк (столбцов) в матрице: 7 *** исходная матрица *** 90 57 58 49 91 -83 61 -57 70 52 90 53 -22 89 -90 -23 39 -88 28 16 -34 -65 -19 -92 -49 77 11 79 -37 -85 -5 6 -41 -75 -90 1 62 24 92 -37 88 21 -65 -47 48 -39 -46 6 38 количество четных элементов ниже побочной диагонали: 11
Впаскале есть стандартная функция pos, которая возвращает начальную позицию вхождения подстроки в строку или 0, если такое вхождение не обнаружено. с её данная решается просто. var s: string; ip,iv: integer; begin write('введите строку: '); readln(s); ip: =pos('п',s); iv: =pos('в',s); if ip*iv=0 then writeln('п или в или обе не найдены в тексте') else if ip< iv then writeln('п встретилось раньше в') else writeln('в встретилось раньше п') end. тестовое решение: введите строку: на лугу пасется корова п встретилось раньше в
Популярно: Информатика
-
Olesya150208.10.2020 09:29
-
юля1510210.07.2020 03:15
-
VitaKoroleva85113.10.2022 15:11
-
UlyaYouth11125.10.2021 01:12
-
8952320366305.09.2022 17:34
-
nikoleller08.10.2021 01:19
-
imailh2828211.11.2022 07:12
-
Просточеловек77707.06.2020 23:22
-
smorodina8325.08.2021 12:32
-
Андрей1238513.02.2020 03:53