Сделайте на языке pascal abc. 20 кто напишет! 1)составьте программу, которая заполняет массив а [1..10] случайными целыми числами в диапазоне от 1 до 10,затем преобразовывает его, увеличивая все элементы с чётными значениями на 1. если элементы с чётными значениями отсутствуют, оставить массив без изменений. 2)составьте программу, которая заполняет массив а [1..10] случайными целыми числами в диапазоне от 1 до 10,затем преобразовывает его, увеличивая все элементы с нечётными значениями в три раза, а элементы с чётными значениями заменяя на 0. 3)составьте программу, которая заполняет массив а [1..10] случайными целыми числами в диапазоне от 1 до 10,затем преобразовывает его, возводя в квадрат все элементы с чётными индексами. 4)составьте программу, которая заполняет массив а [1..10] с клавиатуры, затем преобразовывает массив, заменяя все отрицательные элементы их модулями.
var i:integer ;mas:array [1..10] of integer;
begin
for i:=1 to 10 do
begin
mas[i]:=random(9)+1;
if (mas[i] mod 2)=0 then
mas[i]:=mas[i]+1;
end;
end.
2)program ex;
var i:integer ;mas:array [1..10] of integer;
begin
for i:=1 to 10 do
begin
mas[i]:=random(9)+1;
if (mas[i] mod 2)=0 then
mas[i]:=0;
else
mas[i]:=mas[i]*3;
end;
end.
3)program ex;
var i:integer ;mas:array [1..10] of integer;
begin
for i:=1 to 10 do
begin
mas[i]:=random(9)+1;
if (i mod 2)=0 then
mas[i]:=(mas[i]*mas[i]);
end;
end.
4)program ex;
var i:integer ;mas:array [1..10] of integer;
begin
for i:=1 to 10 do
begin
readln(mas[i]);
if (mas[i]<0) then
mas[i]:=mas[i]*(-1);
end;
end.