Я не понимаю о какой "Архитектуре" ты говоришь, но в Информатеке шиной называбт тип соединения, при котором одной "шиной" соединяются несколько компьютеров и устройств. Например: ПК1 - ПК2 -ПК3 - Принтер - ПК4 - Сканер
Декларативные
Мяч круглый
Вода бесцветная жидкость
Процедурные
Чтобы расплавить метал его нужно накалить
Что бы приготовить перог надо сделать тесто
Способы противодействия компьютерным вирусам можно разделить на несколько групп:
· профилактика вирусного заражения и уменьшение предполагаемого ущерба от такого заражения;
· использование антивирусных программ, в том числе для обезвреживания и удаления известного вируса;
· обнаружение и удаление неизвестного вируса.
<span />
//PascalABC.NET
//Версия 3.3. сборка 1583 (25.11.2017)
var
n:integer;
a:array[1..100] of integer;
begin
write('Введите размер массива (n<100): ');readln(n);
var max:=0;
var min:=101;
for var i:=1 to n do
begin
a[i]:=random(0,100);
write(a[i],' ');
if i mod 2=1 then
if a[i]>max then max:=a[i]
else
if a[i]<min then min:=a[i];
end;
writeln;
writeln('Максимальный - ',max);
writeln('Минимальный - ',min);
writeln('Cумма максимального и минимального - ',max+min);
readln;
end.
Пример:
Введите размер массива (n<100): 10
22 6 51 84 46 66 10 36 14 52 // рандомная генерация
Максимальный - 51
Минимальный - 10
Cумма максимального и минимального - 61
var i, n, a, p: integer;
begin
writeln('Vvedi N: ');
readln(n);
writeln('Vvedi A: ');
readln(a);
p := 1;
for i := 0 to sqr(n) do
begin
p := p * (a - n);
n := n * 2;
end;
writeln(p);
readln;
end.