Var a:array[1..100] of real;
i,k,n:integer;
sr,pr,s:real;
begin
write('Введите кол-во учеников в классе: '); readln(n);
writeln('Введите баллы учеников: ');
for i:=1 to n do
read(a[i]);
s:=0;
for i:=1 to n do
s:=s+a[i];
sr:=s/n; pr:=sr/10;
for i:=1 to n do
if (a[i]<sr+pr) and (a[i]>sr-pr) then
inc(k);
writeln('Кол-во баллов, отклоняющиеся от срзнач. не более чем на 10%: ',k);
end.
Program plov ;
var day : integer ;
var km , sum : real ;
begin
day := 1 ;
km := 3 ;
sum := km ;
while ( sum <= 30 ) do begin
day := day + 1 ;
km := km * 1.1 ;
sum := sum + km ;
end ;
writeln ( 'day=' , day ) ;
<span>end.</span>
const nx = 30; mx = 30; var i,j,m,n,k,qi,qj:integer; D:array[1..nx,1..mx] of real; min:real; begin min:= 30.0; writeln('Введите n и m'); Readln(n,m); for i:= 1 to n do begin for j:= 1 to m do begin D[i,j] := random()*20 -10; write(D[i,j]:6:2); if D[i,j]< 0 then k:= k + 1; if min > D[i,j] then begin min := D[i,j];qi:=i;qj:=j; end; end; writeln; end; Writeln('минимальный элемент матрицы ',min); Writeln('номер строки ',qi); Writeln('номер столбца',qj); Writeln('количество отрицательных элементов матрицы',k); end.
Var
a : array [1..100] of integer;
i, sum : integer;
begin
for i := 1 to 100 do read (a[i]);
sum := 0;
for i := 1 to 100 do sum := sum + a[i];
write (sum);
end.
