Uses Crt;
Const
N = 10;
Var
X:array[1..N] of integer;
i,k:integer;
Begin
ClrScr;
Write('Введите массив целых чисел X(',N,'): ');
For i:= 1 to N do
Begin
Read(X[i]);
if X[i] > 0 then k:=k+1
End;
WriteLn('Количество положительных элементов X(',N,'): ',k);
ReadLn
End.
Пример работы программы:
Введите массив целых чисел X(10): 1 2 3 -4 -5 -6 7 8 9 0
Количество положительных элементов X(10): 6
Var n,i,s:integer;
begin
write('Введите N: ');
readln(n);
for i:=1 to n do
s:=s+i;
writeln('Сумма: ',s);
<span>end.</span>
16 бит - вес 1 знака
вес всего файла= скорость на время = 512000 бит
количество знаков = вес всего файла/вес одного знака = 512000/16=32000бит
Любую? тогда так:
var a,b,c:real;
begin
writeln('Первое число');
readln(a);
writeln('Второе число');
readln(b);
c := a + b;
writeln('Ответ:',c)
end.
если что-то не правильно скажи. А то я не могу проверить т.к. компа рядом нету.