246 во 2
посмотри в интернете там выйдет
Агрегирование и синдикация информации; наполнение сайта; дизайн
Var a:array of integer;
n,i,k:integer;
begin
readln(n);
setlength(a,n);
for i:=0 to n-1 do begin
read(a[i]);
if a[i]>7 then begin a[i]:=7; k+=1; end;
end;
writeln(k);
for i:=0 to n-1 do
write(a[i],' ');
<span>end.
var a:array[1..10] of integer;
i,p:integer;
begin
p:=1;
for i:=1 to 10 do begin
read(a[i]);
p*=a[i];
end;
writeln(p);
<span>end.
var a:array of integer;
i,sr,n:integer;
begin
readln(n);
setlength(a,n);
for i:=0 to n-1 do begin
read(a[i]);
sr+=a[i];
end;
writeln(sr/n:3:2);
<span>end.
var a:array of integer;
n,i,k:integer;
begin
readln(n);
setlength(a,n);
for i:=0 to n-1 do begin
read(a[i]);
if a[i]>0 then k+=1;
end;
writeln(k);
<span>end.
var a:array of integer;
n,i,k1,k2:integer;
begin
readln(n);
setlength(a,n);
for i:=0 to n-1 do begin
read(a[i]);
if odd(a[i]) then k2+=1
else k1+=1;
end;
writeln(k1,' ',k2);
<span>end.</span></span></span></span></span>
Ботаника- Это раздел науки Растениях;Земледельцы-это люди которые занимаются работой связанной с землёй.Животноводы-Это люди которые выращивают домашний скот.НУ как то так
Program E08;
uses crt;
var
X: array[-1000..1000] of integer;
S,i,k: integer;
begin
clrscr;
writeln('Введите массив X:');
for i:=1 to 10 do
begin
write('X[',i:2,'] ==> ');
readln(X[i])
end;
for i:=1 to 10 do
write(X[i],' ');
writeln;
K:=0;
for i:=1 to 10 do
begin
S:=X[i] mod 3;
if S = 0 then
K:=K+1
end;
writeln('Ответ: ',K)
<span>end.</span>
