Регистрация
LimOonka
02.07.2022 16:48
Информатика
Есть ответ 👍

Написать программу решения следующей : для каждой из матриц a(5,5) иb(8,8) вычислить сумму и количество отрицательных элементов, расположенных на главной диагонали и выше её. использовать подпрограмму. на паскале.

215
318
Посмотреть ответы 2

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

fariii046
fariii046
4,7(52 оценок)
// pascalabc.net 3.2, сборка 1425 от 22.04.2017 // внимание! если программа не работает, обновите версию! function ks(a: array[,] of integer): (integer,integer); begin   (var k,var s): =(0,0);   for var i: =0 to a.rowcount-1 do       for var j: =i to a.colcount-1 do           if a[i,j]< 0 then (k,s): =(k+1,s+a[i,j]);   result: =(k,s) end; begin   var a: =matrrandom(5,5,-50,50); a.println(4);   var r: =ks(a); writeln('k=',r[0],', sum=',r[1]);   var b: =matrrandom(8,8,-80,45); b.println(4);   r: =ks(b); writeln('k=',r[0],', sum=',r[1]); end. пример   -9 -41  -6 -49  36     6  -7  -2  -1  28   22 -29 -20 -12    7   -11 -37  14  34 -41   -23  11  -9 -26 -46 k=11, sum=-234     9  34 -68 -32 -43 -61 -19 -55   -66    3 -79  41 -47  27  -7  31   -71  -7 -26  28 -58  -2 -61 -77   -66  39 -39 -76 -13    2  21    6   -56  42 -61    1 -39 -69 -57  -2   -51 -79 -57  10 -10 -27  29  19   -48 -55 -56 -76  43 -32  29 -70   15 -71 -46 -37  23 -24    3 -22 k=23, sum=-1010
vihareva08
vihareva08
4,6(85 оценок)
1) var s,i : integer; begin   i: =1; s: =0;   while i< =99 do   begin       s: =s+i;       i: =i+2;   end;   writeln(s); end. 2) begin   writeln((1+99)*50 div 2); end.

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