Модификация одномерных массивов

program Z11;

const Nmass=100;

var A:array[1..Nmass] of integer;

i,N: byte;

begin

writeLn('Введите число элементов в массиве A');

readLn(N);

writeLn('Вводим элементы массива A:');

for i:=1 to N do

begin

write('A[',i,']=');

readLn(A[i]);

end;

writeLn('Исходный массив A:');

for i:=1 to N do

write(A[i]:5);

writeLn;

// модификация массива

for i:=1 to N do

if i mod 2 = 0 then

A[i]:=A[i] div 5;

writeLn;

writeLn('массив A после изменения:');

for i:=1 to N do

write(A[i]:5);

end.

Не нашли, что искали? Воспользуйтесь поиском: