Var a: array[1..6] of integer;
i, k, d, v, n: integer;
begin
for i:=1 to 6 do
begin
write('Введите элемент массива под номером ', i, ' = ');
readln(a[i]);
end;
k:=0;
d:=0;
v:=0;
n:=6;
for i:=1 to n do
if a[i]=0 then
k:=k+1
else
if a[i]>0 then
d:=d+1
else
if a[i]<0 then
v:=v+1;
writeln('Количество нулевых = ', k);
writeln('Количество положительных = ', d);
writeln('Количество отрицательных = ', v);
end.
Хранить записанные данные и предоставлять их для чтения.
Var q: integer;
<span> s: real;
</span><span>begin
</span><span> q:=0;
</span><span> repeat
</span><span> inc(q);
</span><span> s:=sqr(q)*q/125 - sqr(q) -90*q + 10000;
</span><span> until s<0;
</span><span> writeln('объем выпуска: ',q);
</span><span> s:=(sqr(q)*q/125-sqr(q)+180*q+10000)/q;
</span><span> writeln('затраты на единицу: ',s:5:2);
</span><span>end.
</span>объем выпуска: 86
<span>затраты на единицу: 269.45
</span>
1. Положить a=1, b=100
2. Повторять пока a ≠ b, иначе перейти к шагу 7
3. Вычислить n = целая часть( (a+b)/2 )
4. Спросить, n больше задуманного числа или нет
5. Если "да", то положить a=n+1, если "нет" - положить b=n
6. Продолжать, перейдя к шагу 2.
7. Задуманное число равно a (или b)
8. Завершить работу
В строчке read('a'); апострофов быть не должно. Замени на read(a);