Картинка должна быть в папке с программой и быть в формате 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.
<em>// PascalABC.NET 3.3, сборка 1542 от 05.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (n,m):=ReadInteger2('Введите через пробел n и m:');
var a:=ArrRandom(10,n,m);
a.Println
end.
<u>Пример</u>
Введите через пробел n и m: -6 20
15 10 16 17 1 14 -4 19 1 18
Ну сначала объявляем переменные,константы юсы и т д,потом если нужно пишем процедуры и функции в конце пишем блок основной программы,заканчивающийся end.
100_2 = 4
100_3 = 9
100_4 = 16
100_5 = 25
100_6 = 36
100_7 = 49
100_8 = 64
100_9 = 81
100_10 = 100
100_11 = 121
100_12 = 144
100_13 = 169
100_14 = 196
100_15 = 225
100_16 = 256
100_17 = 289
100_18 = 324
100_19 = 361
100_20 = 400
100_21 = 441
100_22 = 484
100_23 = 529
100_24 = 576
100_25 = 625
100_26 = 676
100_27 = 729
100_28 = 784
100_29 = 841
100_30 = 900
100_31 = 961
100_32 = 1024
100_33 = 1089
100_34 = 1156
100_35 = 1225
100_36 = 1296
Var ar:array[1..12] of integer;
i,min:integer;
begin;
min:=2147483647;
for i:=1 to 12 do
begin;
readln(ar[i]);
if (ar[i]>0) and (ar[i]<min) then
min:=ar[i];
end;
writeln;
writeln('Array:');
for i:=1 to 12 do
write(ar[i]:4);
writeln;
write('Min:',min);
<span>end.</span>