Дан массив из 30 элементов, принимающих значения от 0 до 100. найти произведение двузначных чётных элементов массива, которые начинаются с цифры 5, 6 или 7.гарантируется, что в исходном массиве есть хотя бы один такой элемент.

Pascal: var a: array [1..30] of integer;             i: integer;           p: longint; begin   p: =1;   randomize;     a[1]: =random(21)+50;   for i: =2 to 29 do a[i]: =random(100);   a[30]: =random(21)+50;   for i: =1 to  30 do write (a[i],' ');   writeln;   for i: =1 to  30 do       if (a[i] in [10..99]) and (a[i] mod 2 = 0) and ((a[i] div 10)  in [5..7]) then  p: =p*a[i];   writeln ('proizvedenie: ',p);   readln; end. c++: #include < iostream> #include < ctime> #include < cstdlib> using namespace std; int main() {   int a[30],i;   unsigned long long p = 1;   srand (time(null));   a[0] = rand()%70+50;   for (i =  1; i< 29; i++)       a[i] = rand()%100;   a[29] = rand()%7+50;   for (i = 0; i< 30; i++)   {         cout < < a[i] < < " ";         if ((a[i]/10==5 || a[i]/10==6 || a[i]/10==7)  & & (a[i]> 9 & & a[i]< 100) & & a[i]%2==0)           p*=a[i];     }   cout < < endl;   cout < < "proizvedenie: " < < p < < endl;   return 0; }

программа на паскале:

program a1;

var i, j : integer;

      s : real;

      a: array [1..5, 1..6] of real;

      b: array [1..6] of real;

begin

  for i: =1 to 5 do

    for j: =1 to 6 do

        readln(a[i,j]);

  for j: =1 to 6 do

    begin

        s: =0;

        for : =1 to 5 do

            s: =s+a[i,j];

        b[j]: =s

    end;

  write ('полученный массив в: ');

  for j: =1 to d do

    write(b[j]);

  readln

end. 

оператор присваивания : =

оператор ввода read(x1,) или readln(x1,)

оператор вывода write(x1,) или writeln(x1,)

условный оператор if условие then оператор 1 else оператор 2

оператор варианта case переменная of

                                                                        набор значений1: оператор1;

                                                                        набор значений2: оператор2;

                                                                       

                                                                        набор значенийn: операторn

                                                            else

                                                                      альтернативный оператор

                                                          end;

оператор цикла с предусловиями while do

оператор цикла с постусловием repeat until

оператор цикла for do

оператор break осуществляет немедленный выход из циклов repeat, while, for.

оператор continue начинает новую итерацию цикла, даже если предыдущая не была завершина.

оператор exit осуществляет выход из подпрограммы.

оператор halt прекращает выполнение программы и возвращает код завершения в операционную систему.