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

Анастасия9 · 13.04.2011, 22:11

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

Vladimir_S · 13.04.2011, 22:15

Цитата:

Сообщение от Анастасия9

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

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

Vladimir_S · 14.04.2011, 09:53

Цитата:

Сообщение от 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.

13.04.2011, 22:11	#1 (permalink)
Анастасия9 Новичок Регистрация: 13.04.2011 Сообщений: 1 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Помогите пожалуйста составить программку в паскале увеличить каждый третий элемент массива , размерностью 12, в 2 раза. Миниатюры

Опции темы
Версия для печати Отправить по электронной почте
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070