Var
i,count:integer;
h: array [1..20] of integer;
begin
count:=0;
writeln('Введите элементы');
for i:=1 to 20 do
read(h[i]);
for i:=1 to 20 do
if h[i]>0 then
count:=count+1;
writeln('Количество нулевых элементов ', count)
end.
<span>y:=t; - нельзя присваивать переменную одного типа переменной другого типа.
y:=pred(winter); - не существует предшественника у значения </span><span><span>winter.
</span>t:=cold; - неверное (недопустимое) значение переменной для типа t
<em><u>Ответ:</u></em> допустимы присваивания </span><span>x:=pred(spring); и </span><span><span>t:=warmth;</span></span>
Можно так: складываем. Делим пополам - получаем среднее. Находим разность между заданными числами и средним. Если разность отрицательная - то меньшее число, если разность положительная - то большее.
===== PascalABC.NET =====
begin
var n := ReadInteger('n =');
var a := ArrRandom(n, 0, 100);
a.Println
end.
//Pascal ABC.NET 3.1 сборка 1219
Var
f:text;
c,n1,n2,i:integer;
ar1,ar2:array of real;
r:real;
begin
readln(c);
assign(f,'INPUT.TXT');
reset(f);
while not(Eof(f)) do
begin
read(f,r);
if r>c then
begin
inc(n1);
setlength(ar1,n1);
ar1[n1-1]:=r;
end;
if r<c then
begin
inc(n2);
setlength(ar2,n2);
ar2[n2-1]:=r;
end;
end;
close(f);
assign(f,'OUTPUT1.TXT');
rewrite(f);
for i:=0 to n1-1 do
if i<>n1-1 then write(f,ar1[i],' ') else write(f,ar1[i]);
close(f);
writeln('Count of values in OUTPUT1.TXT:',n1);
assign(f,'OUTPUT2.TXT');
rewrite(f);
for i:=0 to n2-1 do
if i<>n2-1 then write(f,ar2[i],' ') else write(f,ar2[i]);
close(f);
writeln('Count of values in OUTPUT2.TXT:',n2);
end.
Пример ввода:
2
Содержимое <span>INPUT.TXT:
1.5 1.75 2 2.25 2.5
Содержимое OUTPUT1.TXT:
2.25 2.5
Содержимое OUTPUT2.TXT:
1.5 1.75
Пример вывода:
Count of values in OUTPUT1.TXT:2
Count of values in OUTPUT2.TXT:2</span>
