Да, можно. М отводится роль емксти, которая в момент начала алгоритма пуста. То есть это как-бы пустой стакан, в который мы перелываем сначала чай, поотм у нас остается пустым стакан, в котором был чай. Мы в него переливаем кофе. И из стакана М переливаем чай в стакан, где недавно было кофе.
Зачееееееееееееееееееееееееееееееееееееееееееееем???
var a,i:integer;
begin
a:=1;
for i:=1 to 5 do
begin
if a mod 2 <> 0 then write(a,' ');
a:=a+1;
end;
end.
Const N = 5; M = 10; var a: array [1..N, 1..M] of real; s, R: real; kol, i, j: integer; //kol - количество чисел begin writeln('Введите R'); readln(R); for i:= 1 to N do for j:= 1 to M do begin writeln('Введите a[', i, ', ', j, ']'); readln(a[i, j]); if a[i, j] > R then begin kol:= kol + 1; s:= s + a[i, j]; end; end; s:= s / kol; writeln(kol, ' чисел > ', R); writeln('Среднее арифметическое равно ', s);<span>end. </span>
Размер текстового файла увеличится в 2 раза