Устройство: 1 Клавиатура. 2 процессор. 3 Память. 4 монитор. 5 мышь.
Функция: 1 ввод информации. 2 обработка данных. 3 хранение информации. 4 отображение данных. 5 устройство ввода информации.
Const
N = 10;
Var
A:array[1..N] of integer;
i,j:integer;
Begin
Write('Исходный массив: ');
For i:= 1 to N do
Begin
A[i]:=random(21)-10;
Write(A[i],' ')
End;
WriteLn;
Write('Отсортированный массив: ');
For j:= 1 to N div 2 do
For i:= 1 to N div 2-1 do
if A[i]>A[i+1] then Swap(A[i],A[i+1]);
For j:= 1 to N div 2 do
For i:= N div 2 to N-1 do
if A[i]<A[i+1] then Swap(A[i],A[i+1]);
For i:= 1 to N do
Write(A[i],' ')
End.
Var a,e,z,y,x:integer;
Begin
Writeln('Введите трехзначное число');
Readln(a);
x:=a div 100;
y:=(a-x*100) div 10;
z:=a-y*10-x*100;
e:=x+y+z;
writeln('Сумма чисел ',x,' ',y,' и ',z,' равна ',e,'.');
<span>end.
p.s.
</span>a-трехзначное число
e-сумма чисел
x, <span>y </span>и <span>z </span>- первое, второе и третье число соответственно.
????????????????????Сфоткай хотя бы
Задание 9 - 1056 бит или 132 байта