Картинка должна быть в папке с программой и быть в формате BMP
uses
graphabc;
var
n: string;
b: Picture;
s:integer;
begin
writeln('введите расстояние до зеркала');
readln(s);
write('Введите имя файла рисунка: ');
readln(n);
window.Clear;
b := Picture.Create(n);
b.Load(n);
b.Draw(50, 50);
b.FlipHorizontal;
b.Draw(50+2*s,50);
end.
Масло-салома , каприз-приказ соринка-росинка
Program abc;var<span> i, j: byte;</span><span> arr1, arr2: array [1..5] of array [1..5] of integer;</span><span> arr: array[1..25] of integer;</span>begin<span> for i := 1 to 25 do</span><span> begin</span><span> arr[i] := i;</span><span> end;</span><span> writeln('array1:');</span><span> for i := 1 to 5 do</span><span> begin</span><span> for j := 1 to 5 do</span><span> begin</span><span> arr1[i][j] := arr[(i - 1) * 5 + j];</span><span> write(' ', arr1[i][j], ' ');</span><span> end;</span><span> writeln();</span><span> end;</span><span> writeln('array2:');</span><span> for i := 1 to 5 do</span><span> begin</span><span> for j := 1 to 5 do</span><span> begin</span><span> arr2[i][j] := arr1[j][i];</span><span> write(' ', arr2[i][j], ' ');</span><span> end;</span><span> writeln();</span><span> end;</span><span>end.</span>