1) Составте программу подсчета нулевых элементов одно мерного массива Т (И) стоящих на нечетных местах.

2) Сотавте программу, которая в одно мерном массиве А (18) все элементы с нечетными номерами меняется на 0.

Const

n = 20;

var

T: array[1 ... n] of integer;

i, k: integer;

begin

Randomize;

Writeln ('Элементы массива') ;

k : = 0;

for i : = 1 to n do

begin

T[i] : = Random (11) - 5;

Write (T[i]:3) ;

if ((i mod 2) 0) and (T[i]=0) then Inc (k) ;

end;

Writeln;

Writeln ('Количество нулевых элементов на нечетных местах равно ', k) ;

end.

Тестовое решение:

Элементы массива

2 5 - 4 4 3 - 2 5 - 5 - 1 - 2 5 2 0 - 5 - 5 - 4 - 3 3 0 1

Количество нулевых элементов на нечетных местах равно 2

const

n = 18;

var

T: array[1 ... n] of integer;

i: integer;

begin

Randomize;

Writeln ('Элементы массива') ;

for i : = 1 to n do

begin

T[i] : = Random (51) - 25;

Write (T[i]:4) ;

end;

Writeln;

Writeln ('Результат') ;

for i : = 1 to n do

begin

if ((i mod 2) 0) then T[i] : = 0;

Write (T[i]:4) ;

end;

Writeln;

end.

Тестовое решение:

Элементы массива

23 - 6 8 14 15 12 - 24 20 - 11 - 7 4 - 24 22 - 19 12 - 6 21 17

Результат

0 - 6 0 14 0 12 0 20 0 - 7 0 - 24 0 - 19 0 - 6 0 17