Написати програму з використанням байтових для збереження у файл даних про учнів принаймні 5 записів ) . зчитатидані у масив , та вивести відомості про тих , які мають оцінки менші за 9 ( про учнів відомі такі дані номер по порядку прізвище , імя , предмети :

Pascalabc.net 3.4.2, сборка 1857 от 05.11.2018 внимание! если программа не работает, обновите версию!

begin

  var a: =readreal('a=');

  var n: =readinteger('n=');

  var s: =1/a; // для n=1

  if n< =1 then s+=1

  else

  begin

    a*=a; // a^2

    var z: =a;

    for var i: =2 to n do

    begin

      s+=1/z;

      z*=a

    end

  end;

  println(s)

end.

a= 3.73 n= 5 0.34553638581855

#include < ctime> #include < iostream> using namespace std; int main(){ srand(time(null)); int n; cout < < "vvedite n < < endl; cin > > n; int arr[n]; int a,b; cout < < "vvedite diapozon a-b cherez probel" < < endl; cin > > a > > b; for (int i=0; i< n; i++) a[i]=rand()%b+a; int s50 = 0; int ss50 = 0; int s = 0; int ss = 0; for (int i=0; i< n; i++) { if (a[i]< 50) { s50+=a[i]; ss50++; } else { s+=a[i]; ss++; } } cout < < "srednee arifmeticheskoe chisel menshe 50 ravno " < < s50/ss50 < < endl; cout < < "srednee arifmeticheskoe chisel ostalnix elementov ravno " < < s/ss; return 0; }