Program mass; uses crt; var massiv:array[1..10] of integer; i,count:integer; sra:real; begin for i:=0 to 10 do begin readln(massiv[i]); if massiv[i] > 0 then begin count:= count+1; sra:= sra + massiv[i]; end; end; sra:= sra/count; writeln('Среднее арифметическое = ',sra); end.
begin Randomize; Writeln('Элементы массива'); for i := 1 to n do begin a[i] := Random(61) - 30; Write(a[i]:4); if a[i]>0 then a[i]:=2*a[i] else if a[i]<0 then a[i]:=7 end; Writeln; Writeln('После преобразования'); for i := 1 to n do Write(a[i]:4); Writeln end.
begin Randomize; Writeln('Элементы массива'); for i := 1 to n do begin a[i] := Random(61) - 30; Write(a[i]:4); if a[i]>0 then a[i]:=2*a[i] else if a[i]<0 then a[i]:=7 end; Writeln; Writeln('После преобразования'); for i := 1 to n do Write(a[i]:4); Writeln end.
uses crt;
var massiv:array[1..10] of integer;
i,count:integer;
sra:real;
begin
for i:=0 to 10 do begin
readln(massiv[i]);
if massiv[i] > 0 then begin
count:= count+1;
sra:= sra + massiv[i];
end;
end;
sra:= sra/count;
writeln('Среднее арифметическое = ',sra);
end.