1. Дан одномерный массив: −17, 27, 0, −5, 3, 12. Значение элемента массива — −17. Определите индекс элемента массива
2. Дано описание массива: var a: array [1..21] of integer; Здесь oписан массив a из целочисленных значений. При выполнении этого оператора в памяти компьютера будет выделено________ ячеек _______ целого типа. Выбери вариант для заполнения пропусков. *
1) 20 ячеек и 1 целого типа
2) 21 ячеек и 1 целого типа
3) 21 ячеек и 21 целого типа
4) 22 ячеек и 22 целого типа
3. Дано описание массива: consta: [1..4] of integer=(10,8,70,103); Верно ли описан массив? *
верно
не верно
4. Определи заполнения массива. randomize; for i:=1 to10 do a[i]:=random(92); *
1) нет верного ответа
2) с оператора присваивания (случайными числами)
3) ввод каждого значения с клавиатуры
4) ввод каждого случайного символа с клавиатуры
5) все ответы верны
5. Дано описание массива: vara: array [1..n] of integer; Выбери, какие элементы массива подходят. *
1) −4.8; 2.8
2) −8; 0; 1
3) среда; четверг; суббота
4) 1; 2; 3; 4; 5; 6; 7; 8

#include <iostream>

using namespace std;

int main()
{
  setlocale(LC_ALL, "RUS"); //Для русского языка в консоли
  int a,b,//a,b - стороны
  q,  //q - площадь
  end, //end - выход из программы
  num; //num - количество подходящих прямоугльников
  cout << "Введите площадь:" << endl;
  cin>>q;
  end=0;
  num=0;
  while (end==0)
  {
    cout <<"Введите стороны a,b прямоугольника. 0, чтобы выйти"<<endl;
    cin>>a>>b;
    if (a<=0 || b<=0)
    {
      end=1;
    }
    else
    {
      if (a*b==q)
      {
        num++;
      }
    }
  }
cout <<"Среди введенных прямоугольников площадь "<<q<<" имели " <<num <<" штук"<<endl;
return 0;
}

Python

def summ(m):
s = 0
while m > 0:
s += m % 10
m = m // 10
return s

from random import random

N = 10
a = [0] * N
for i in range(N):
a[i] = int(random() * 40) + 10
print('%4d' % a[i], end='')
print()

for i in range(N - 1): # количество переборов 9
for j in range(N - i - 1): # при первом переборе i=0
if summ(a[j]) > summ(a[j + 1]):
a[j], a[j + 1] = a[j + 1], a[j]

for i in range(N):
print('%4d' % a[i], end='')
print()

for i in range(N):
print('%4d' % summ(a[i]), end='')
print()

pascal

const
    N = 10;
var
    arr: array[1..N] of integer;
    i, j: byte;
    a: integer;
function sum (n: integer): byte;
    begin
        sum := 0;
        while n > 0 do begin
            sum := sum + n mod 10;
            n := n div 10;
        end;
    end;
begin
    randomize;
    for i := 1 to N do begin
        arr[i] := random(20)+10;
        write (arr[i]:3);
    end;
    writeln;
      
    for i := 1 to N-1 do // количество проходов по массиву
        for j := 1 to N-i do // количество сравнений в каждом проходе
            if sum(arr[j]) > sum(arr[j+1]) then begin
                a := arr[j];
                arr[j] := arr[j+1];
                arr[j+1] := a;
            end;
 
    for i := 1 to N do
        write(arr[i]:3);
    writeln;
    for i := 1 to N do
        write(sum(arr[i]):3);
    writeln;
end.