ввод/вывод означает взаимодействие между обрабочиком информации (например, компьютер) и внешним миром, который может представлять как человек, так и любая другая система обработки информации. Ввод — сигнал или данные, полученные системой, а вывод — сигнал или данные, посланные ею (или из нее).
Устройства ввода и вывода можно условно разделить на устройства, с которых информация передается машине от человека, человеку от машины и от одной машины другой машине. Наиболее распространенные устройства следующие: – устройства ввода: клавиатура, сканер, устройства местоуказания (мышь, джойстик, графический планшет, световое перо); – устройства вывода: дисплей, принтер, плоттер, звуковая карта; – устройства, обеспечивающие связь с другими машинами: модем, сетевой адаптер, инфракрасный порт и т.д.
Устройства для взаимодействия между компьютерами, как модемы и сетевые карты , обычно служат устройствами ввода и вывода одновременно.
program n1;
const n=10;
var
mas:array[1..n] of integer;
i:integer;
max,min,sum:integer;
ar:real;
begin
for i:=1 to n do
begin
mas[i]:= random (20)-10;
write(mas[i],' ');
writeln
end;
max:=1;
for i:=2 to n do
if mas[i]>mas[max] then
max:=i;
writeln;
writeln('Максимаьное значение a[',max,']= ',mas[max]);
min:=1;
for i:=2 to n do
if mas[i]<mas[min] then
min:=i;
writeln;
writeln(Минимальное значение a[',min,']= ',mas[min]);
for i:=1 to n do
sum:=sum+mas[i];
ar:=sum/n;
writeln;
writeln('Среднее арифметическое = ',ar);
end.
{Немного нерационально но работает=)}
var
s, s2 : String;
Check : Boolean;
i : Integer;
begin
Write('Введите первое слово: ');
ReadLn(s);
Write('Введите второе слово: ');
ReadLn(s2);
if Length(s) <> Length(s2) then
begin
Writeln('No');
exit;
end;
Check := True;
for i := 1 to Length(s) do
if pos(s[i], s2) <> 0 then
Delete(s, pos(s[i], s2), 1)
else Check := False;
If Check then
Writeln('Yes')
else
Writeln('No');
Readln;
end.