Папа дяди федора увлекается компьютерной техники. ему определить те разъемы, с которых возможно подключение видеокарты к материнской плате компьютера. agp dvi vga pci rca pci-e hdmi vlb

Разъемы возможные, для подключения видеокарты к материнской плате
AGP
PCI-E

Дан це­ло­чис­лен­ный мас­сив из 20 элементов. Эле­мен­ты мас­си­ва могут при­ни­мать целые зна­че­ния от –10 000 до 10 000 включительно. Опи­ши­те на одном из язы­ков про­грам­ми­ро­ва­ния алгоритм, поз­во­ля­ю­щий найти и вы­ве­сти ко­ли­че­ство пар эле­мен­тов массива, в ко­то­рых сумма эле­мен­тов де­лит­ся на 2, но не де­лит­ся на 4. В дан­ной за­да­че под парой под­ра­зу­ме­ва­ют­ся два со­сед­них эле­мен­та массива.

Исходные дан­ные объ­яв­ле­ны так, как по­ка­за­но ниже на при­ме­рах для не­ко­то­рых язы­ков программирования. За­пре­ща­ет­ся ис­поль­зо­вать переменные, не опи­сан­ные ниже, но раз­ре­ша­ет­ся не ис­поль­зо­вать не­ко­то­рые из опи­сан­ных переменных.

 

 

БейсикPython

CONST N = 20 DIM A (1 TO N) AS INTEGER DIM I, J, K AS INTEGER FOR I = 1 TO N INPUT A(I) NEXT I … END

// до­пус­ка­ет­ся также использовать

// две це­ло­чис­лен­ные переменные

// j и k

a = []

n = 20

for i in range(0, n):

a.append(int(input()))

…

ПаскальАлгоритмический язык

const N = 20; var a: array [1..N] of integer; i, j, k: integer; begin for i := 1 to N do readln(a[i]); … end.

алг нач цел N = 20 целтаб a[1:N] цел i, j, k нц для i от 1 до N ввод a[i] кц … кон

Си

1.
var x : array[1..1000] of integer; 
  n,i,max,min : integer;
begin
write('n = ');
readln(n);
writeln('Исходный массив:');
for i:=1 to n do begin
 write('x[',i,']=');
 readln(x[i]);
 end;
writeln;
max:=x[1]; min:=x[1];
for i:=2 to n do
 begin
 if x[i] > max then max:=x[i];
 if x[i] < min then min:=x[i];
 end;
writeln('max=',max,'  min=',min);
writeln('Среднее = ',(max+min)/2:5:2);
end.

Пример:
n = 5
Исходный массив:
x[1]=12
x[2]=45
x[3]=60
x[4]=72
x[5]=68
max=72 min=12
Среднее = 42.00



2.
begin
  var n:=ReadInteger('n = ');
  var a:=ReadArrInteger('Вводите массив:',n);
  Writeln('Max = ',a.Max);
  Writeln('Min = ',a.Min);
  Writeln('Среднее = ',(a.Max+a.Min)/2);
end.