PascalABC.NET 3.3 под девизом "Памяти наших дедов посвящается..."
const n=10; var a:array[1..n,1..n] of integer; i,j,SumDiag,k:integer; p:real;
begin Writeln('*** Исходная матрица ***'); Randomize; SumDiag:=0; for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=Random(199)-99; if i=j then SumDiag:=SumDiag+a[i,j]; Write(a[i,j]:4) end; Writeln end; for i:=1 to 4*n do Write('-'); Writeln; Writeln('Сумма элементов на главной диагонали ',SumDiag); p:=SumDiag/15; k:=0; for i:=1 to n do for j:=1 to n do if a[i,j]<p then k:=k+1; Writeln('Искомое количество элементов ',k) end.
1: Ну-с, три раза циклом идем начиная с 1 до 3 и получается следующее: Идем первый раз: S:=1+1*1 в результате S = 2; Идем второй раз: S:=2+2*2 в результате S = 6; Идем третий раз: S:=6+3*3 в результате S = 15; ответ: S = 15; 2: В результате выполнения программы будет выведены 6 чисел которые получились в результате вычисления s:=s+2*j; Т.е. как и в предыдущем задание (1) идем циклом с 10 до 15 и считаем, а после сразу выводим. S:= 0 + 2*10; S=20; S:= 20 + 2*11; S=42; S:= 42 + 2*12; S=66; S:= 66+2*13; S=92; S:=92+2*14; S= 120; S:=120 + 2*15; S=150; 3: крч все тоже самое цикл и т.д. ответ: 5 20 60 120 120
Объяснение:
Программа на Паскале.
Листинг и результат работы в приложении.