Question

ОЧЕЕЕЕЕЕЕЕЕЕЕЕНЬ СРОЧНО 1)Составьте программу которая заполняет массив a[1..10] случайными целыми числами в диапазоне от 1 до 10, затем преобразовывает его, увеличивая все элементы с нечетными значениями в три раза, а элементы с четными значениями заменяя на 0. 2)Составьте программу, которая заполняет массив а[1..10] случайными целыми числами в диапазоне от 1 до 10, затем меняет местами первый и последний элементы.Выведите на экран исходный и полученный массивы. Это нужно через PascalABC. ЗАРАНЕЕ ОГРОМНОЕ СПАСИБО

Answer 1

1) var a:array [1..10] of integer;
i:integer;
begin
writeln('Генерируем массив со случайными числами');
for i:=1 to 10 do begin
a[i]:=random(100)+1;
write(a[i],' ');
end;
writeln;
writeln('Выполняем действие');
for i:=1 to 10 do begin
if (i mod 2 = 0) then a[i]:=0 else a[i]:=a[i]*3;
write(a[i],' ');
end;
readln;
end.

2) var a:array [1..10] of integer;
i,k:integer;
begin
writeln('Генерируем массив со случайными числами');
for i:=1 to 10 do begin
a[i]:=random(100)+1;
write(a[i],' ');
end;
writeln;
writeln('Выполняем действие');
k:=a[1];
a[1]:=a[10];
a[10]:=k;
for i:=1 to 10 do write(a[i],' ');
readln;
end.

Answer 2

Конечно! Вот программы на языке PascalABC, которые выполняют указанные вами задачи:

1. Программа, заполняющая массив случайными числами и преобразующая его:

pascalCopy code
program ArrayTransformation;
var
  a: array[1..10] of Integer;
  i: Integer;
begin
  Randomize;
  
  { Заполнение массива случайными числами }
  for i := 1 to 10 do
    a[i] := Random(10) + 1;
    
  { Преобразование массива }
  for i := 1 to 10 do
  begin
    if a[i] mod 2 = 1 then  { нечетное значение }
      a[i] := a[i] * 3
    else                    { четное значение }
      a[i] := 0;
  end;
  
  { Вывод исходного массива }
  WriteLn('Исходный массив:');
  for i := 1 to 10 do
    Write(a[i], ' ');
  
  { Вывод преобразованного массива }
  WriteLn;
  WriteLn('Преобразованный массив:');
  for i := 1 to 10 do
    Write(a[i], ' ');
  
  ReadLn;
end.

2. Программа, заполняющая массив случайными числами и меняющая местами первый и последний элементы:

pascalCopy code
program SwapArrayElements;
var
  a: array[1..10] of Integer;
  temp: Integer;
  i: Integer;
begin
  Randomize;
  
  { Заполнение массива случайными числами }
  for i := 1 to 10 do
    a[i] := Random(10) + 1;
  
  { Вывод исходного массива }
  WriteLn('Исходный массив:');
  for i := 1 to 10 do
    Write(a[i], ' ');
  
  { Меняем местами первый и последний элементы }
  temp := a[1];
  a[1] := a[10];
  a[10] := temp;
  
  { Вывод полученного массива }
  WriteLn;
  WriteLn('Полученный массив:');
  for i := 1 to 10 do
    Write(a[i], ' ');
  
  ReadLn;
end.

Надеюсь, эти программы вам помогут! Если у вас возникнут еще вопросы, не стесняйтесь задавать.