Var t,t1:text; b:array[1..20] of integer; i,j:integer;
begin
assign(t,'G:\2015\12\input.txt');reset(t);
while not eof(t) do begin
i:= i + 1;readln(t,b[i]);
writeln(b[i]); end;close(t);
assign(t,'G:\2015\12\output.txt');
assign(t1,'G:\2015\12\output1.txt');
Rewrite(t);Rewrite(t1);
for j:=1 to i do
if b[j] > 0 then
writeln(t,b[j])
else
writeln(t1,b[j]);
close(t);close(t1);<span>end.</span>
<span>Устройства ввода информации – это устройства, которые переводят информацию с языка человека на машинный язык.</span>К устройствам ввода информации относятся следующие устройства:1. Клавиатура;2. Сканер;3. Цифровые фотокамеры;4. Средство речевого ввода (микрофон);5. Координатные устройства ввода ( мышь, трекбол );<span>6.Сенсорные устройства ввода (световое перо, сенсорный экран, дигитайзер).</span>
фигурные скобки используются для инициализации функции main. без скобок программа не заработает
Var n,c,i: integer; A: array[1..10000] of integer;begin write('Кол-во частей: '); read(n);
for i:=1 to n do read(A[i]);
c:=0; for i:=1 to n do if A[i] mod 2 = 0 then c += 1; write('Чётных чисел: ',c);end.