Program Program1; var i, n: integer; var result1, result2, sum: real; var array1: array [0..1000] of real; begin randomize; result1 := 0; sum := 0; write('Введите значение N (не менее 0 и не более 255): '); readln(n); for i := 1 to n do begin array1[i] := random(1000) - random(1000); end; begin writeln('Массив размером - ', n, ' элементов(а):'); for i := 1 to n do write(array1[i], ' '); writeln; end; for i := 1 to n do begin if array1[i] > 0 then result1 := result1 +1; end; for i:=1 to n do sum := sum + array1[i]; result2 := sum / n; writeln('Количество положительных элементов массива = ', result1); writeln('Среднее арифметическое = ', result2); end.
Program Program1; var i, j, n: integer; Arr: array [1..255] of integer; FileArr: text; procedure swap(var x, y: integer); var t: integer; begin t := x; x := y; y := t end; begin assign(FileArr, 'Array.txt'); rewrite(FileArr); randomize; write('Введите значение N: '); readln(n); for i := 1 to n do begin Arr[i] := random(100); end; for j := 1 to n - 1 do for i := 1 to n - j do if Arr[i] > Arr[i + 1] then swap(Arr[i], Arr[i + 1]); for i := 1 to n do begin writeln(Arr[i]); end; for i := 1 to n do begin writeln(FileArr, Arr[i]); end; close(FileArr); end.
var i, n: integer;
var result1, result2, sum: real;
var array1: array [0..1000] of real;
begin
randomize;
result1 := 0;
sum := 0;
write('Введите значение N (не менее 0 и не более 255): ');
readln(n);
for i := 1 to n do
begin
array1[i] := random(1000) - random(1000);
end;
begin
writeln('Массив размером - ', n, ' элементов(а):');
for i := 1 to n do write(array1[i], ' ');
writeln;
end;
for i := 1 to n do
begin
if array1[i] > 0 then result1 := result1 +1;
end;
for i:=1 to n do sum := sum + array1[i];
result2 := sum / n;
writeln('Количество положительных элементов массива = ', result1);
writeln('Среднее арифметическое = ', result2);
end.