Загаме 1. Паша составил пронрамму, которая переставляет символы по следующему правилу: Первая часть Халання, оцениваемые в
в клонники / выбрите один промовильный ответ из числа предлож
wingrade
бу се овательность четырех символов
"символ / символ 2 символ 3 символ 4"
та прокурамма превращается в последовательность
"символ 3 символ 4 символ І символ 2".
ABCD CDAB
1234
3412
Паила ввода последовательность:
БАА Б
Какую последовательность выведет Пашина программа?
//АК64
БАБА
АБВГ
АБВА
5/АБАБ
Можно быстренько

Var
  i: Integer;       //  рабочая переменная для for
  k: Integer;       //  количество минимальных элементов
  n: Integer;       //  размер массива  m : array [1..10] of Integer; // Собственно сам массив  из "n" элементов
  i_min : Integer;  // Индекс минимального элемента в массиве
begin
  n:=10;  k := 0;  i_min := 1;
  for i := 1 to n  do
  begin
    m[i] := Random(10);  // 10 - Число от балды
    if (m[i]<m[i_min]) then
    begin
      k := 1;
      i_min := i
    end
    else
      if (m[i]=m[i_min]) then
        inc(k);
  end;

  // В переменной "k" - находится количество минимальных элементов
end;

Первая:
Uses crt;
Var arr:array[1..100] of integer;
n,a,c:integer;
Begin
Write('Сколько чисел вы хотите ввести?-');
Readln(n);
for a:=1 to n do
begin
Write('Введите ',a,' число:');
Readln(arr[a]);
end;c:=0;
For a:=1 to n do
Begin
if  (arr[a] mod 2<>0) and (arr[a]<0) then c:=c+1;
end;
Writeln('В последовательности ',c,' нечетных отрицательных чисел.');
end.

Вторая:
Uses crt;
Var arr:array[1..100] of integer;
a,b,c,m:integer;
begin
Write('Сколько чисел вы хотите ввести?-');
Readln(b);
For a:=1 to b do
begin
Write('Введите ',a, ' число:');
Readln(arr[a]);
end;
For a:=1 to b do
Begin
m:=arr[a];
For c:=1 to 2 do
begin
arr[a]:=m*arr[a];
end;end;
For a:=1 to b do
begin
 Writeln('Куб ',a,' введенного вами числа равен:',arr[a]);
end;
end.