Const n=10;
var a:array[1..n] of integer;
i,s:integer;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
begin
a[i]:=random(51)-25;
write(a[i]:4);
end;
writeln;
s:=0;
for i:=1 to n do s:=s+a[i];
writeln('среднее арифметическое элементов массива = ',s/n);
end.
Пример:
Массив A:
4 -25 -8 17 1 15 -23 -13 16 -22
среднее арифметическое элементов массива = -3.8
Begin
for i:=1 to 30 do
a[i]:=random(50)-20;
for i:=1 to 30 do
if a[i]<0 then sum:=sum+a[i];
writeln(sum);
readln(k);
for i:=1 to 30 do
if (a[i]>0) and (a[i]<=k) then kol:=kol+1;
writeln(kol);
end.
<em>// PascalABC.NET 3.3, сборка 1547 от 07.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (n,m):=ReadInteger2('Количество строк и столбцов в массиве:');
Writeln('*** Исходный массив [',n,',',m,'] ***');
var a:=MatrRandom(n,m,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
end.
<u>Пример</u>
Количество строк и столбцов в массиве: 7 8
*** Исходный массив [7,8] ***
88 9 -44 13 81 97 -65 -20
16 -37 -33 -34 -69 -64 12 -58
-36 -80 -99 61 -59 -86 -18 83
-77 -1 85 -41 -49 -12 43 84
-64 32 36 -85 -18 -42 49 -6
71 -13 28 33 55 -94 12 13
5 -10 -5 -27 23 -37 -48 74
--------------------------------
Просто СИ (С),изначально была на ассемблере, но потом переписали на си
