Изменение значений некоторых элементов массива. Рассмотрим задачу замены отрицательных элементов на противоположные по знаку. (№5)

№5. Program Zamena;

Const

n=20;

Var

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

i : integer;

Begin

writeln (‘ Заполнение элементов целочисленного массива A[‘,n,’] ‘);

for i:=1 to n do

Begin

write (‘a[‘, i , ‘] =‘);

read (a[ i ]);

end;

for i:=1 to n do

if a[ i ]<0 then

a[ i ]:=-a[ i ];

wreteln (‘Массив A с замененными отрицательными эл-ми’);

for i:=1 to n do

write (a[ i ]:5);

readln;

End.

№6Program Uslovie;

Type

massiv=array[1..20] of real;

Var

a :massiv;

t :real;

k ,i :integer;

Begin

writeln(‘ Введите элементы массива A ‘);

fori:=1 to20do

Begin

write(‘a[‘, i , ‘] =‘);

read(a[ i ]);

end;

writeln(‘ Введите T‘);

read(t);

k:=0;

fori:=1 to20do

ifa[ i ]<t then

inc(k);

writeln(‘k=‘, k);

readln;

End.

Определение числа элементов, удовлетворяющих заданному условию. (№6)

Для решения такой задачи необходимо задать условие и в цикле перебирая все элементы массива, в случае выполнения данного условия увеличивать значение некоторой переменной k на единицу. До цикла перебора всех элементов, необходимо значение k обнулить. Решим задачу для определения в массиве количества элементов меньших заданного числа Т.

Нахождение индексов элементов с заданным свойством. (№7)

Рассмотрим задачу Нахождения и вывода на экран номеров (индексов) четных элементов.

Для решения задачи необходимо просмотреть весь массив, и если просматриваемый элемент является четным, то выводить его индекс.

№7. Program Index;

Сonst

n=10;

Type

massiv=array[1..n] of integer;

Var

a : massiv;

i: integer;

Begin

writeln (‘ Введите элементы массива A ‘);

for i:=1 to n do

Begin

write (‘a[‘, i , ‘] =‘);

read (a[ i ]);

end;

for i:=1 to n do

if a[ i ] mod 2=0 then

write (i:4);

readln;

End.