составьте программу,которая запрашивает значение элементов одномерного массива A,состоящего из 10 элементов,формирует и выводит на экран в строку данный массив.Найти сумму определённого элемента;количество элементов,стоящих на нечетных местах;произведение элементов,кратных 5.

       begin
       for i:=1 to 10 do
    10
       write (a[i]:5);

    3
    2
       a: array [1..10] of integer;
    begin
    uses crt;
       writeln(‘Одномерный числовой массив А’);
       readln(a[i]);
       for i:=1 to 10 do

  • 1
       end;
    5
    4
    13
    8
    var
    9
       writeln(‘Введите ‘, i, ‘ элемент массива’);
       i: integer;
    7
    6
    11
    12
    14



See also: