profile
Опубликовано 5 лет назад по предмету Информатика от aniron

Напишите программу, которая выполняет реверс части массива, начиная с элемента с номером K и заканчивая элементом с номером M(включительно). 

  1. Ответ
    Ответ дан Аккаунт удален
    var
      i,k,m,j:integer;
      a,b:array[1..10]of integer;
    begin
    writeln('Исходный массив:');
    for i:=1 to 10 do
      begin
      a[i]:=random(50);
      write(a[i]:3);
      end;
    writeln;
    write('Введите k и m: ');
    readln(k,m);
    j:=m;
    for i:=k to m do
      begin
      b[j]:=a[i];
      j:=j-1;
      end;
    for i:=k to m do  a[i]:=b[i];
    writeln('Измененный массив:');
    for i:=1 to 10 do  write(a[i]:3);
    end.
Самые новые вопросы