Заполнить массив из 10 элементов случайными числами и сделать реверс всех элементов, кроме первого
Заполнить массив из 10 элементов случайными числами и сделать реверс всех элементов, кроме первого
Гость
Ответ(ы) на вопрос:
Гость const n=10; var a:array[1..n] of integer; i,tmp: integer; begin randomize; for i:=1 to 10 do begin a[i]:=random(21)-10; Write(A[i]:3); end; writeln; for i:=2 to n div 2 do begin tmp:=a[i]; a[i]:=a[10-i+2]; a[10-i+2]:=tmp; end; for i:=1 to n do write(a[i]:3); readln; end.
Гостьuses crt;
var a:array[1..10] of Integer;
i,j:Integer;
procedure rep; var k:Integer; begin k:=a[ i];a[ i]:=a[j];a[j]:=k; end;
begin
randomize;clrscr;
for i:=1 to 10 do a[ i]:=random(101);
for i:=1 to 9 do for j:=i+1 to 10 do if a[ i] mod 10 > a[ j] mod 10 then rep;
for i:=1 to 10 do write(a[ i],' ');
end.
Не нашли ответ?
Похожие вопросы