Ответ:
Надеюсь все правильно!
/// Рекомендую в след. раз делать скрин на экране (твое лицо и пол человека с права видно, если кто-то из знакомых узнает мало не покажется! Берегись)
Вот сам код:
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
a[i]:=random(20)-10;
Write(a[i],' ');
end;
Writeln;
s:=0;
k:=0;
if (a[i]>=-2) and (a[i]<=10) then
inc(k);
s:=s+a[i];
b[k]:=a[i];
for i:=1 to k do
for j:=i to k do
if (b[i]>b[j]) then
x:=b[i];
b[i]:=b[j];
b[j]:=x;
Writeln('Sr=',s/k:0:2);
Write(b[i],' ');
Readln;
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Ответ:
Надеюсь все правильно!
/// Рекомендую в след. раз делать скрин на экране (твое лицо и пол человека с права видно, если кто-то из знакомых узнает мало не покажется! Берегись)
Вот сам код:
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.