Помогите пожалуйста составить программку в паскале

[Анастасия9]

Помогите пожалуйста составить программку в паскале

увеличить каждый третий элемент массива , размерностью 12, в 2 раза.

 

[Vladimir_S]

увеличить каждый третий элемент массива , размерностью 12, в 2 раза.

Настя, выложите листинг по-простому, на рисунке очень мелко, ничего не разобрать толком.

 

[Vladimir_S]

Настя, выложите листинг по-простому, на рисунке очень мелко, ничего не разобрать толком.

М-да... Не знаю, что и думать... То ли уважаемая Анастасия9 сочла мою просьбу выложить листинг программы в удобочитаемом виде наглой и оскорбительной, то ли... даже не знаю, что и думать. Во всяком случае, ушла, хлопнув дверью. Ну что же, если моя просьба была воспринята ТАК, то приношу извинения. И, похоже, придется работать с программой без послаблений.
Вот что удалось разобрать:

program 24;
var i,n:integer;
a:array[1..12] of integer;
begin
randomize;
write ('n= ');
readln;
for i:=1 to n do
begin
a:=random(100);
writeln(a);
end;
if i/3mod=0 then a:=a*2;
writeln;
writeln(a);
readln;
end.

Ну что сказать - ошибок довольно много. Не буду разбирать каждую, просто покажу, как программа должна выглядеть:

program 24;
var 
 i,n:integer;
 a:array[1..100] of integer;
begin
 randomize;
 write('n= ');
 readln(n);
 for i:=1 to n do
  begin
   a[i]:=random(100);
   write(a[i]:4);
  end;
 writeln;
 writeln;
 for i:=1 to n do
  begin
   if (i mod 3)=0 then a[i]:=a[i]*2;
   write(a[i]:4);
  end;
 writeln;
 readln;
end.