pOscal!!!!!!!!!!

[Vovchik]

somewhere, а точно ето я слегка перепутал сейчас исправимся !

[Vovchik]

вот правельный код задачи №1 !!!!!!!!!!!

Код: Выделить всё

uses crt;
const x=15;
var a:array[1..x]of integer;
    i,tmp:integer;
BEGIN
 clrscr;
  for i:=1 to x do
   begin
    write('a',i,'=');
    readln(a[i]);
   end;
  for i:=1 to 15 do
   begin
    tmp:=a[i];
    a[i]:=a[15];
    a[15]:=tmp;
   end;
 writeln;
  for i:=1 to x do
    begin
      writeln('a',i,'=',a[i]);
     end;
  readln;
END.

всего 2 строки пропустил

[somewhere]

Vovchik, там не нужно такое количество обменов

Код: Выделить всё

uses crt;

const x=15;

var a:array[1..x]of integer;
    i,tmp:integer;

BEGIN
 clrscr;
  for i:=1 to x do
   begin
    write('a',i,'=');
    readln(a[i]);
   end;

tmp := a[15];
move(a[1], a[2], (x-1)*sizeof(Integer));
a[1] := tmp;

 writeln;
  for i:=1 to x do
    begin
      writeln('a',i,'=',a[i]);
     end;
  readln;
END.

[Vovchik]

somewhere, чесно говоря я не очень селён в программировании я можно сказать только учюсь поетому в некоторых нюансах могу быть не точен !!!

[One]

№2,№5,№7 Пожалуйста

[MOTOCoder]

№2
Дано натуральное число n, символы s1,...,sn. Преоброзовать последовательность, удалив каждый символ 'q' и повторив каждый символ от 'q' .

То есть нужно сформировать 2 последовательности, в первой удалив все символы 'q', а во второй после каждого символа 'q' добавив еще 1?

[Vovchik]

MOTOCoder, первая задача уже решына так что что вы цетировали не понятно !!!

[MOTOCoder]

MOTOCoder, первая задача уже решына так что что вы цетировали не понятно !!!

Не то выделил при цетировании, на самом деле я имел в виду вторую задачу.

[Vovchik]

MOTOCoder, а понятно но тогда извените пожалуста

[One]

№2,№5,№7 Пожалуйста

HELP!!!!!!!!!!!