// PascalABC.NET 3.2, сборка 1417 от 28.03.2017 // Внимание! Если программа не работает, обновите версию!
begin Writeln('*** Исходный массив 8x6 ***'); var c:=MatrRandom(8,6,-99,99); c.Println(4); Writeln(4*c.ColCount*'-'); Writeln('Произведения элементов, больших -7, построчно:'); foreach var row in c.Rows do Writeln(row.Where(x->x>-7).Aggregate(int64(1),(p,q)->p*q)); end.
program Ex1; const nn=100; { ограничение на длину массива } var i,n,s,k:integer; a:array[1..nn] of integer; begin Randomize; Write('n='); Read(n); k:=0; for i:=1 to n do begin a[i]:=Random(101)-50; Write(a[i],' '); if a[i]>0 then begin k:=k+1; s:=s+a[i] end end; Writeln; Writeln('Среднее положительных ',s/k) end.
program Ex2; const nn=100; { ограничение на длину массива } var i,n,min:integer; a:array[1..nn] of integer; begin Randomize; Write('n='); Read(n); min:=100; { больше максимально возможного } for i:=1 to n do begin a[i]:=Random(101)-50; Write(a[i],' '); if a[i]<min then min:=a[i] end; Writeln; Writeln('Минимум ',min) end.
Выводы о том, чему и как учат в школе, делайте самостоятельно...
Const nn=50; { ограничение на длину строки/столбца } var i,j,m,n,k,s:integer; a:array[1..nn,1..nn] of integer; begin Randomize; Write('Количество строк в массиве '); Read(m); Write('Количество столбцов в массиве '); Read(n); s:=0; k:=0; for i:=1 to m do begin for j:=1 to n do begin a[i,j]:=Random(101)-50; Write(a[i,j]:4); if a[i,j]>0 then begin s:=s+a[i,j]; k:=k+1 end end; Writeln end; Writeln('Ср. арифметическое положительных ',s/k) end.
// Внимание! Если программа не работает, обновите версию!
begin
Writeln('*** Исходный массив 8x6 ***');
var c:=MatrRandom(8,6,-99,99);
c.Println(4); Writeln(4*c.ColCount*'-');
Writeln('Произведения элементов, больших -7, построчно:');
foreach var row in c.Rows do
Writeln(row.Where(x->x>-7).Aggregate(int64(1),(p,q)->p*q));
end.
Пример
*** Исходный массив 8x6 ***
-50 8 -15 55 91 -53
-25 82 33 65 19 -63
99 49 -80 84 -2 68
-52 -63 -58 23 89 58
81 -45 -71 -85 34 66
-35 2 23 26 -33 -56
74 35 -35 21 15 -77
40 87 -11 77 -74 -65
Произведения элементов, больших -7, построчно:
40040
3341910
-55417824
118726
181764
1196
815850
267960