Продолжите: если число оканчивается цифрой 0, то оно делится на 5. известно, что данное число не делится на 5. !

  если число оканчивается цифрой 0, то оно делится на 5. известно, что данное число не делится на 5. следовательно это число оканчивается на любое число,которое не оканчивается на 5 и 0

следовательно, число не оканчивается 0

 

более того, скажу, что число не оканчивается пятеркой, потому что число делится на 5, если оканчивается 5 или 0

Const n=30;   var a: array[1..n] of integer; i,min,max,s: integer; sr: real; begin randomize; writeln('массив a: '); for i: =1 to n do   begin   a[i]: =random(11)+10;   write(a[i]: 6);   end; writeln; min: =a[1]; max: =a[1];   s: =a[1]; for i: =2 to n do   begin   if a[i]< min then min: =a[i];   if a[i]> max then max: =a[i];   s: =s+a[i];   end; sr: =s/n; writeln('min = ',min,' max = ',max,' sr = ',sr); s: =0; for i: =1 to n do write(a[i]-sr: 6: 1); end. пример (для 10 дней): массив a:     11     16     19     15     13     19     11     16     17     17 min = 11 max = 19 sr = 15.4   -4.4   0.6   3.6   -0.4   -2.4   3.6   -4.4   0.6   1.6   1.6

5

program sumseq;

 

{$apptype console}

 

uses

  sysutils;

//const m: integer  ;

var

  i, j, m, s: integer;

  n: array of integer;

begin

  s: =0;

  writeln(m);

  writeln('vvedite m');

  readln(m);

  setlength(n,m);

  for i: =0 to m do

      begin

          j: =random(10);

          if j< 5

                then n[i]: =-1*j

                else n[i]: =j;

          write(n[i], ' ')

      end;

  writeln;

  writeln('to continue push > > enter');

  readln;

 

  for i: =0 to m do

      begin

          if n[i]< 0

              then s: =s+sqr(n[i])

      end;

    writeln('s=',s);

    readln

 

 

  { todo -ouser -cconsole main : insert code here }

end.