Var a:array[1..100] of integer;
i,s:integer;
begin
for i:=1 to 8 do begin
a[i]:=random(11)-0;
write(a[i]:4);
end;
s:=0;
for i:=1 to 8 do begin
if a[i] mod 2<>0 then
s:=s+1;
end;
writeln;
writeln(s);
end.
<span>дверь - дверной проем ; открывать - ремонтировать</span>
<span>окно - стекло ; мыть - разбивать</span>
автомобиль - сидение ; покупать - пачкать
Var
a: array[-10..10] of real;
i: integer;
begin
for i := -10 to 10 do begin
Read(a[i]);
a[i] := a[i] / 10;
Write(a[i]+' ');
end;
end.
Вот, например программа поиска корня уравнения методом ДИХОТОМИИ:
program dichotom;
uses Crt;
var a, b, eps, xn, y, psy: real;
n: integer;
function f(x:real):real;
begin
f:=sin(x)-1/x;
end;
begin
ClrScr;
a:=2;
b:=3;
eps:=0.01;
n:=0;
y:=f(a);
while y>=eps do
begin
n:=n+1;
xn:=(a+b)/2;
y:=f(xn);
if y>=eps then
if f(a)*y<0 then b:=xn else a:=xn;
end;
psy:=xn;
WriteLn(' X = ',psy:5:2);
ReadLn;
end.