Заданы два массива а(n) и в(m в каждом из массивов найти наименьшее значение и умножить на него все элементы массивов. на печать вывести исходные и преобразованные массивытребуется код)

CLSINPUT NDIM A(N), B(N)FOR i = 1 TO N  A(i) = INT(RND * 100)NEXT imin = A(1)FOR i = 2 TO N  IF A(i) < min THEN min = A(i)NEXT iFOR i = 1 TO N  A(i) = min * A(i)NEXT iFOR i = 1 TO N  B(i) = INT(RND * 100)NEXT imin = B(1)FOR i = 2 TO N  IF B(i) < min THEN min = B(i)NEXT iFOR i = 1 TO N  B(i) = min * B(i)NEXT iFOR i = 1 TO N  PRINT A(i);NEXT iPRINTFOR i = 1 TO N  PRINT B(i);NEXT i

#include <iostream>

int main()
{
    int n;
    std::cin >> n;
    int k;
    switch(n)
    {
    case 1:
        k = 5; // 5 - кол-во уроков в понедельник;
        break;
    case 2:
        k = 6; // во вторник
        break;
    case 3:
        k = 6; // в среду и т.д.
        break;
    case 4:
        k = 5;
        break;
    case 5:
        k = 6;
        break;
    case 6:
        k = 4; // в субботу
        break;
    default:
        k = 0;
    }
    std::cout << "Количество уроков: " << k << std::endl;
}

1.                                          

program raf105;

var

 sum: integer;

begin

 for var i:=1 to 100 do

   if i mod 2 = 0 then sum:= sum + i;

 writeln('Вывод: ',sum);

end.

2.                                          

program raf105;

var

 glas: string:= 'аяоёуюыиэе';

 input: string;

 glasCount: integer;

begin

 write('Введите слово: ');

 readln(input);

 lowerCase(input);

 for var i:= 1 to length(input) do

   for var j:= 1 to length(glas) do

     if input[i] = glas[j] then inc(glasCount);

 writeln('Гласных букв: ',glasCount);

end.

3.                                          

program raf105;

var

 count: integer;

begin

 for var i:=1 to 500 do

   if i mod 2 <> 0 then inc(count);

 writeln('Вывод: ',count);

end.

PascalABC