const N = 100;
var a: array [1..N] of real;
median: real;
sum: real;
count_more, i: integer;
begin
randomize;
for i:= 1 to N do a[i]:= random(1, 1000);
sum:= 0;
for i:= 1 to N do sum:= sum + a[i];
median:= sum / N;
count_more:= 0;
for i:= 1 to N do begin
if a[i] > median then inc(count_more)
else a[i]:= a[i] * 1.1;
end;
write(count_more);
end.
var
A: array [1..3, 1..5] of Integer;
i, j: Integer;
s: Real;
begin
Randomize;
WriteLn ('Массив:');
for i := 1 to 3 do begin // заполнение массива случайными значениями и вывод для просмотра
for j := 1 to 5 do begin
A [i, j] := Random (22) - 11;
Write (A [i, j], ' ');
end;
Writeln;
end;
for i := 1 to 3 do begin // замена элементов с четной суммой индексов на 555
for j := 1 to 5 do begin
if (i + j) mod 2 = 0 then
A [i, j] := 555;
end;
end;
WriteLn;
WriteLn ('Результат: '); // вывод результата
for i := 1 to 3 do begin
for j := 1 to 5 do begin
Write (A [i, j], ' ');
end;
Writeln;
end;
end.