Массив-2

uses crt;
var mas:Array[1..25] of Integer;
    i:integer;
begin
  Randomize;
  for i:=1 to 25 do
  begun
    If (i mod 5)=1 then
      mas[i]:=120
    else
      mas[i]:=Random(121)-45;
    Write(mas[i], ' ');
  end;
end.

uses crt;
var n,i,j:byte;
    a:array[1..50] of integer;
begin
clrscr;
randomize;
n:=25;
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=random(121)-45;
  write(a[i],' ');
 end;
writeln;
writeln;
i:=1;{идем по массиву}
while i<=n do{пока не конец}
 begin
if a[i] mod 5=0 then{если кратно 5}
 begin
  for j:=n downto i+1 do{сдвигаем весь конец массива на 1 вправо}
  a[j+1]:=a[j];
  a[i+1]:=120;{вставляем на свободное место 120}
  n:=n+1;{увеличиваем размер массива}
  i:=i+2;{перепрыгиваем через 120}
 end
else i:=i+1;{если не кратоно, смотрим следующее}
end;
writeln('Результат:');
for i:=1 to n do
write(a[i],' ');
readln
end.

program ex;
uses crt;
const n=25;
var
a:array [1..n] of integer;
i:integer;
begin
clrscr;
randomize;
for i:=1 to n do
a[i]:=-45+random (121);
for i:=1 to n do
write (a[i], ' ');
writeln;
writeln;
for i:=n downto 1 do
if abs(a[i] mod 5)=0 then
begin 
for i:=n+k downto k1+1 do
a[i+1]:=a[i];
a[k1+1]:=120;
inc(k);
end;
write (a[i], ' ');
readln;
end.

var a:integer;
begin
a:=-25;
write(a mod 5);
readln
end.