Цитата:
Сообщение от Vladimir_S
Настя, выложите листинг по-простому, на рисунке очень мелко, ничего не разобрать толком.
|
М-да... Не знаю, что и думать... То ли уважаемая Анастасия9 сочла мою просьбу выложить листинг программы в удобочитаемом виде наглой и оскорбительной, то ли... даже не знаю, что и думать. Во всяком случае, ушла, хлопнув дверью. Ну что же, если моя просьба была воспринята ТАК, то приношу извинения. И, похоже, придется работать с программой без послаблений.
Вот что удалось разобрать:
program 24;
var i,n:integer;
a:array[1..12] of integer;
begin
randomize;
write ('n= ');
readln(n);
for i:=1 to n do
begin
a[i]:=random(100);
writeln(a[i]);
end;
if i/3mod=0 then a[i]:=a[i]*2;
writeln;
writeln(a[i]);
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.