Срочно!!!! Нужно как минимум один вариант сделать!!любой !!!

Question

Срочно!!!! Нужно как минимум один вариант сделать!!любой !!!

---

Comments

паскаль?

Answer 1

1.

const n=10;

var a:array[1..n] of integer;

i,s,v: integer;

begin

write ('Массив: ');

for i:=1 to n do

begin

a[i]:=random(51)+50;

write (a[i],' ');

if i mod 2 = 0 then s:=s+a[i]

end;

writeln;

writeln ('Сумма: ',s);

writeln ('Массив: ');

for i:=1 to 5 do

begin

v:=a[i*2-1];

a[i*2-1]:=a[i*2];

a[i*2]:=v;

writeln (a[i*2-1]);

writeln (a[i*2])

end

end.

2.

const n=10;

var a:array[1..n] of integer;

i,s,v: integer;

begin

writeln ('Массив: ');

for i:=1 to n do

begin

a[i]:=random(61)+20;

writeln (a[i]);

if i mod 2 <> 0 then s:=s+a[i]

end;

writeln;

writeln ('Сумма: ',s);

for i:=1 to 5 do

begin

v:=a[i];

a[i]:=a[n+1-i];

a[n+1-i]:=v

end;

write ('Массив: ');

for i:=1 to n do write (a[i],' ')

end.

Answer 2

Вариант 1.

//PascalABC.NET v3.3 1633

var arr: array [1..10] of integer;

begin

 for var i:=1 to 10 do

   arr[i]:=random(50,100);

 arr.PrintLn(', ');

 

 var sum:=0;

 for var i:=1 to 10 do

   if i mod 2 = 0 then sum += arr[i];

 writeln('Сумма: '+sum);

 

 var a:=1;

 while a < 10 do

 begin

   swap(arr[a], arr[a+1]);

   a+=2;

 end;

 

 writeln('Новый массив:');

 for var i:=1 to 10 do

   writeln(arr[i]);

end.

Вариант 2.

//PascalABC.NET v3.3 1633

var arr: array [1..10] of integer;

begin

 for var i:=1 to 10 do

   arr[i]:=random(20,80);

 for var i:=1 to 10 do

   writeln(arr[i]);

 

 var sum:=0;

 for var i:=1 to 10 do

   if i mod 2 <> 0 then sum += arr[i];

 writeln('Сумма: '+sum);

 

 for var i:=1 to 5 do

   swap(arr[i], arr[11 - i]);

 

 writeln('Новый массив:');

 arr.PrintLn(', ');

end.