Задача №168. Даны натуральное число n, действительные числа a1, …, an (n≥6) . Получить..
>Решение Pascal
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 | program pr168; var i, n: integer; a : array of integer; begin write('n = '); readln(n); setLength(a, n + 1); for i := 1 to n do begin write('a',i,' = '); readln(a[i]); end; //variant a for i := 6 to n do write(a[i], ' '); writeln(''); //variant b for i := 6 to n do write(a[i], ' '); write(a[1]); writeln(''); //variant v for i := 6 to n do write(a[i], ' '); write(a[5]); writeln(''); readln; end. |