Дана последовательность элементов массива а1, а2, а2...an. Составить программу, которая нечетные элементы удваивает, а чётные возводит в квадрат.

1

Ответы и объяснения

Лучший Ответ!
2012-04-17T17:47:57+00:00

program lab;
uses crt;
var
mas:array[1..100] of integer;
i, n: integer;
begin
randomize;
writeln('Введите размерность массива n ');
readln(n);
for i:=1 to n do
begin
mas[i]:=random(10);
write(mas[i]:5);
end;
writeln;
writeln;
for i:=1 to n do
begin
if mas[i] mod 2 = 0 then mas[i]:=sqr(mas[i])
else mas[i]:=2*mas[i];
write(mas[i]:5);
end;

readln;
End.