Написати програму для вирішення поставленого завдання. Всі вхідні масиви заповнюються випадковими цілими числами з діапазону [- 50; 50],
окрім випадків зазначених в завданні. Всі дії (заповнення, пошук елемента, пошук максимального, мінімального елементів, елементів, що задовольняють умові, впорядкування, виведення на екран і таке інше) над
масивами оформити у вигляді окремих методів. Передачу масиву у метод
виконати через аргумент.

Дано масив чисел. Знайти, скільки в ньому пар однакових сусідніх

елементів.

c#

доделал. Pascal

Объяснение:

program basket;

uses crt;

var N,i,k:integer;

   rost: array of integer;

   fam, kom: array of string;

BEGIN

Clrscr;

writeln('Введите количество учеников');

readln(N);

setlength(fam, N);

setlength(rost, N);

setlength(kom, N);

writeln('Введите фамилии и рост учеников:');

for i:=0 to N-1 do

begin

write('fam[',i,']= ');

read(fam[i]);

write('rost[',i,']= ');

readln(rost[i]);

end;

k:=0;

for i:=0 to N-1 do

if rost[i]>=170 then begin

kom[k]:=fam[i];

k:=k+1;

end;

if k=0 then

writeln('кандидатов нет')

else

writeln('Список претендентов в сборную школы:');

for i:=0 to k-1 do

writeln(kom[i]);

readln;

end.

1)var n,k: integer; begin   write('число:   ');   readln(n);   k: =0;   repeat     k: =k*10+n mod 10;     n: =n div 10;   until n=0;   writeln('новое число:   ',k); end. 2) var n,k,m: integer; begin  write('двоичное число:   ');   readln(n);   k: =1;   m: =0;   repeat    m: =m+k*(n mod 10);     n: =n div 10;     k: =k*2;   until n=0;   writeln('десятичное число:   ',m); end.