Это типо сайт надо создать или как
<em>MS DOS QBasic 1.0</em>
DIM n AS INTEGER
CLS
INPUT "N=", n
REDIM a(1 TO n) AS INTEGER
DIM a AS INTEGER
RANDOMIZE TIMER
FOR i = 1 TO n
a(i) = 9 * RND + 1
PRINT a(i);
NEXT i
PRINT
'--------- SORT -----------
DIM j AS INTEGER, t AS INTEGER
FOR i = 1 TO n
FOR j = 1 TO n
IF a(i) < a(j) THEN
t = a(i): a(i) = a(j): a(j) = t
END IF
NEXT j
NEXT i
'---------------------------
t = a(1): j = 1
FOR i = 2 TO n
IF a(i) = t THEN
j = j + 1
ELSE
PRINT t; "-"; j
t = a(i): j = 1
END IF
NEXT i
PRINT t; "-"; j
<u>Пример</u>
N=10
7 5 2 7 3 3 5 9 7 6
2 - 1
3 - 2
5 - 2
6 - 1
7 - 3
9 - 1
Const
n = 16;
var
A, Y: array[1..n] of integer;
i, m: integer;
S: longint;
begin
Write('Введите число элементов в массивах m<17: ');
Readln(m);
if not (m in [1..16]) then m := 16; { защита от дурака }
Randomize;
//Write('Элементы массива: ');
S := 0;
for i := 1 to m do
begin
A[i] := Random(51) - 25;
Y[i] := Random(41) - 20;
S := S + A[i] * Y[m - i + 1]
//Write(x[i]:5)
end;
if S < 24 then Writeln('Искомая сумма равна ', S)
else begin
Write('Массив A: ');
for i := 1 to m do Write(A[i]:4);
Write(#13#10, 'Массив Y: ');
for i := 1 to m do Write(Y[i]:4);
Writeln
end
end.
Тестовое решение:
Введите число элементов в массивах m<17: 0
Массив A: 6 25 9 -4 11 10 -18 11 18 -11 -24 1 13 -3 -10 0
Массив Y: 1 0 6 9 14 -14 3 -6 -17 -19 11 16 11 -20 5 19
Введите число элементов в массивах m<17: 10
Массив A: 1 2 7 5 9 -16 -23 -4 5 -2
Массив Y: -3 -5 -12 -20 2 1 -3 18 19 -17
Введите число элементов в массивах m<17: 10
Искомая сумма равна 1
Картинка должна быть в папке с программой и быть в формате 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.
