Дан массив c целочисленный состоящий из 20 элементов каждый элемент которого вычесляется по формуле ci=i*-5 ; вывести данный массив и вывести новый массив элемент которого формируется таким образом : 1 элемент равен последнему элементу, 2 элемент равен перед последнему элементу

Программа, которая использует два массива

var 
c, a: array[1..20] of integer; 
i: integer;
begin 
write('Первый массив '); 
for i := 1 to 20 do   begin   
c[i] := i * (-5);   
write(c[i], ' '); 
end; 
writeln; 
write('Преобразованный массив '); 
for i := 1 to 20 do   begin   
a[i] := c[20 - i + 1];   
write(a[i], ' '); 
end;  
end.

ИЛИ  Программа не использующая два массива, а просто переворачивающая первый

var 
c: array[1..20] of integer; 
i: integer;
begin  write('Первый массив '); 
for i := 1 to 20 do   begin   
c[i] := i * (-5);   
write(c[i], ' '); 
end; 
writeln; 
write('Преобразованный массив '); 
for i := 20 downto 1 do  write(c[i], ' '); 
end.

Обе программы работают!

1:

a = int(input())  

b = int(input())

if a == b:

   print('Числа равны')

elif a > b:

   print(f'Первое число - {a} больше, чем второе число - {b})

elif a < b:

  print(f'Второе число - {b} больше, чем первое число - {a}')

2:

a = int(input())  

b = int(input())

print('Периметр треугольника', a * 3)

print('Периметр квадрата', b * 4)

if a * 3 == b * 4:

   print('Периметры равны')

elif a * 3 > b * 4:

   print('Периметр треугольника больше, чем периметр квадрата')

elif a * 3 < b * 4:

   print('Периметр квадрата больше, чем периметр треугольника')

3:

a = int(input())  

b = int(input())

c = int(input())

print('MAX=', max(a, b, c), sep='')

4:

m = int(input())

t = int(input())

if m > t:

   print('У Маринки больше яблок. Тарасу нужно дать ещё', m - t, 'ябл.')

elif m < t:

  print('У Тараса больше яблок. Маринке нужно дать ещё', t - m, 'ябл.')

elif m == t:

   print('Количество яблок равно.')

Объяснение:

извини, украинский не знаю, думаю сам изменишь, если нужно

Program test;

var a,i,b,c,d,count:integer;

   a1,i1,b1,c1,d1,count1,m1:integer;

   a2,i2,b2,c2,d2,count2,summ2:integer;

 

begin

 count := 1;

 c := 0;

 b := 1;

 writeln('Введите номер элемента Фибонначи');

 readln(a);

 writeln('');

 if a=1 then writeln(0);

 if a=2 then writeln(1);

 

 

 if a>2 then  

 while count<=a-2 do

 begin

   d := b + c;

   c := b;

   b := d;

   

   count := count + 1;

   

 end;

 if a>2 then writeln(d);

 writeln('');

begin

 count1 := 1;

 c1 := 0;

 b1 := 1;

 writeln('Введите число M');

 readln(m1);

 writeln('');

 if m1=0 then writeln(1);

 if m1=1 then writeln(2);

 

 if m1>1 then  

 while true do

 begin

   d1 := b1 + c1;

   c1 := b1;

   b1 := d1;

   count := count+ 1;

   if d1>m1 then break;

   

 

   

 end;

if m1>1 then   writeln(d1);

 writeln('');

 end;

begin

 summ2 := 1;1

 

 count2 := 1;

 c2 := 0;

 b2 := 1;

 writeln('');

 while true do

   

 begin

   d1 := b1+ c1;

   if d1>1000 then break;

   c1 := b1;

   b1 := d1;

   count := count + 1;

   summ2 := summ2 + d1;

   writeln(summ2);

   

 end;

 writeln('');

 

end;

end.

Объяснение: