// PascalABC.NET 3.0, сборка 1088 const n=9; m=7; var a:array[1..n,1..m] of integer; b:array[1..n] of boolean; i,j,k:integer; begin Randomize; Writeln('*** Исходный массив ***'); for i:=1 to n do begin k:=0; for j:=1 to m do begin a[i,j]:=Random(225)-112; Write(a[i,j]:5); if a[i,j]<0 Then Inc(k) end; Writeln; b[i]:=k>3 end; Writeln('*** Строки, содержащие больше 3 отрицательных элементов ***'); for i:=1 to n do if b[i] then Write(i,' '); Writeln end.
1) const k = 15; var a : array [1..k] of integer; s : real; i : integer; begin randomize; s := 0; for i := 1 to k do //Обработка массива чаще всего begin //осуществляется в цикле a[i] := random(21); //Формирование s := s + a[i]; //Подсчет суммы элементов end; s := s / k; //Среднее арифметическое (сумма/кол - во) writeln (s:3:3); end.
3) const n = 5; var a : array [1..n] of integer; i,k : integer; begin k := 0; for i := 1 to n do begin readln (a[i]); //Считываем элемент if a[i] < 0 then //Если элемент меньше нуля k := k +1; //счетчик +1 end; writeln (k); end.
Если размер указан в битах, то 28 кбайт
Если это в байтах, то 196 кбайт
Объяснение: