В заданой последовательности чисел поменять местами первое число с последним, другое с предпоследним и т.д

@domenys13 · Регистрация: 04.01.2019

Студворк — интернет-сервис помощи студентам

В заданой последовательности чисел поменять местами первое число с последним, другое с предпоследним и т.д (прогу нужно в Delfi и Pascal. и с блок-схемой.Только учусь не знаю как сделать кто знает помогите плиз.

@Joy · 04.01.2019, 20:03

Сообщение от domenys13

другое с предпоследним и т.д (

может второе с предпоследним?

Pascal

const n=10;
var
  a:array[1..n] of integer;
  i,j:integer;
begin
  for i:=1 to n do begin
    a[i]:=i;
    write(a[i]:4);
  end;
  writeln;
  //сам обмен
  for i:=1 to n div 2 do begin
    j:=a[i];
    a[i]:=a[n+1-i];
    a[n+1-i]:=j;
  end;
  for i:=1 to n do write(a[i]:4);
end.

@domenys13 0 / 0 / 0 Регистрация: 04.01.2019 Сообщений: 1
		1
	В заданой последовательности чисел поменять местами первое число с последним, другое с предпоследним и т.д 04.01.2019, 18:09. Показов 438. Ответов 1 Метки нет (Все метки) В заданой последовательности чисел поменять местами первое число с последним, другое с предпоследним и т.д (прогу нужно в Delfi и Pascal. и с блок-схемой.Только учусь не знаю как сделать кто знает помогите плиз. 0

Опции темы