Виртуальные библиотеки

Найдите ошибку Uses crt;

Найдите ошибку
Uses crt;

  • Uses crt;
    Var n,i,k,sum:integer;
    sr:real;
    m:array 1..100 of integer;
    begin clrscr; Writeln (Vvedite kol-vo chisel );
    Readln (n); For i:=1 to n do begin writeln (vvedite ,i, chislo );
    Readln (mi); end; writeln ( Polycheny chisla );
    For i:=1 to n do write (mi:4);
    for i:=1 to n do if mi>0 then begin mi:=sin(i)*cos(i);
    sum:=sum+mi;
    k:=k+1;
    Sr:=sum/k;
    end;
    Writeln;
    Writeln (Sr = ,sr:4:2);
    Readln;
    end.

    gde ja podcherknul, rezultati i functii dlya type real, ne dlya integer;

    nado sdelat vot shto:

    m:array 1..100 of integer; -> m:array 1..100 of real;

    mi:4 -> mi:0:4;

  • Найдите ошибку

    Uses crt;
    Var n,i,k,sum:integer;
    sr:real;
    m:array 1..100 of integer;
    begin clrscr; Writeln (Vvedite kol-vo chisel );
    Readln (n); For i:=1 to n do begin writeln (vvedite ,i, chislo );
    Readln (mi); end; writeln ( Polycheny chisla );
    For i:=1 to n do write (mi:4);
    for i:=1 to n do if mi>0 then begin mi:=sin(i)*cos(i);
    sum:=sum+mi;
    k:=k+1;
    end;

    Sr:=sum/k;
    Writeln;
    Writeln (Sr = ,sr:4:2);
    Readln;
    end.