Скачать программы    Все программы автора

Задание №10

Дан массив A[1..N], содержащий целые числа. Преобразовать элементы массива по следующему правилу:

а)если элемент положительный, то заменить его на 1,

б)если элемент отрицательный -- возвести в квадрат.

Program massiv;

Const

N=100; {количество строк в массиве}

var

a:array [1..N] of integer; {исходный массив чисел}

i:integer; {индекс массива}

m:integer; {количество элементов в массиве}

begin

writeln('Введите количество элементов');

read(m); {читает введенное количество элементов}

for i:=1 to m do

begin

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

read(a[i]);

end;{цикл преобразования элементов массива}

for i:=1 to m do

if a[i]>0 then a[i]:=1

else a[i]:=a[i]*a[i];

for i:=1 to m do

writeln(a[i]);{вывод результата}

end.