кто знает я нажал на fn и ещё куда то на клавиатуре пк она перестала печатать но она включена. Я поставил - id1825102020220809 от 881881881 09.08.2022 14:23

Question

Информатика: кто знает я нажал на fn и ещё куда то на клавиатуре пк она перестала печатать но она включена. Я поставил все балы которые у меня были

881881881 · Accepted Answer

//Pascal ABC.NET v3.1 сборка 1172

Var
ar:array[1..15] of integer;
i,k1,k2:integer;
r1,r2:real;
begin
randomize;
writeln('Array:');
for i:=1 to 15 do
begin
   ar[i]:=random(-20,20);
   write(ar[i]:4);
   if i mod 2=0 then
    begin
     inc(k1);
     r1:=r1+ar[i];
    end;
   if ar[i]>0 then
    begin
     inc(k2);
     r2:=r2+k2;
    end;
end;
r1:=r1/k1;
r2:=r2/k2;
writeln;
if r1>r2 then writeln('Среднее арифметическое элементов стоящих на четных местах');
if r1<r2 then writeln('Cреднее арифметическое положительных элементов массива');
if r1=r2 then writeln('Равно');
end.

кто знает я нажал на fn и ещё куда то на клавиатуре пк она перестала печатать но она включена. Я поставил все балы которые у меня были

MOGZ ответил