Question

Составьте блок схему и программу в паскале 2 задание(постусловие, предусловие, параметр)

Answer 1

Ответ:

Надеюсь все правильно!

/// Рекомендую в след. раз делать скрин на экране (твое лицо и пол человека с права видно, если кто-то из знакомых узнает мало не покажется! Берегись)

Вот сам код:

uses crt;

const n=12;

var a,b:array[1..100] of integer;

   i,j,x,s,k:integer;

begin

ClrScr;

Randomize;

for i:=1 to n do

begin

 a[i]:=random(20)-10;

 Write(a[i],'  ');

end;

Writeln;

s:=0;

k:=0;

for i:=1 to n do

if (a[i]>=-2) and (a[i]<=10) then

 begin

  inc(k);

  s:=s+a[i];

  b[k]:=a[i];

 end;

for i:=1 to k do

  for j:=i to k do

   if (b[i]>b[j]) then

    begin

     x:=b[i];

     b[i]:=b[j];

     b[j]:=x;

    end;

Writeln;

Writeln('Sr=',s/k:0:2);

Writeln;

for i:=1 to k do

Write(b[i],'  ');

Readln;

end.