Носи́тель информации — любой материальный объектили среда, используемыйчеловеком, способный достаточно длительное время сохранять (нести) в своей структуре занесённую на негоинформацию, без использования дополнительных устройств
Начало: program p1;
uses crt;
var a,b,c,d,e,f,g,p:integer;
begin
Ввод 7 чисел: read( a,b,c,d,e,f,g);
Происходит умнож: p:=a*b*c*d*e*f*g;
Вывод: write(p);
Конец: end.
Var
mas:array[1..100] of integer;
min,i:integer;
begin
for i:=1 to 10 do
read(mas[i]);
min:=mas[1];
for i:=2 to 10 do
if mas[i]<min then
min:=mas[i];
mas[10]:=min;
for i:=1 to 10 do
write(mas[i],' ');
end.
44=101100
54456=1101010010111000
19573=100110001110101