Var
a: array[1..12] of integer;
i: integer;
begin
randomize;
for i:=1 to 12 do
a[i]:=random(12+12+1)-12; //Заполнение массива
writeln('Исходный массив: ');
for i:=1 to 12 do
 write(' ',a[i],' '); //Вывод исходного массива
writeln(); //Для перехода на следующую строку
writeln('Результат: ');
for i:=4 downto 1 do
 write(' ',a[i],' ');
for i:=8 downto 5 do
 write(' ',a[i],' ');
for i:=12 downto 9 do
 write(' ',a[i],' '); //Обратный цикли для каждой трети
end.

0 0

4 года назад

Приведите пример таблицы типа ООО

kylibin

Предположим в первом столбце-объекты, в последующих их свойства!

0 0

4 года назад

В некотором каталоге хранился файл Том 1, имевший полное имя D:\Литература\20 век\Том 1. В этом каталоге созда

bandit069

1) D:\Литература\20 век\Шолохов\Том 1

0 0

4 года назад

Напишите программу для вычисления значений функции F(x)={x^3-3x8 если х<=1 {1/(x^3-3x8) если х>1

Natabilova

Пусть y=F(x),тогда:
uses crt;
var x:integer;
y:real;
begin
write ('x='); read(x);
if x<=1 then y:=sqr(x)*x-3*x*8;
if x>1 then y:=1/sqr(x)*x*8*x;
write('y=',y); 
end.

0 0

4 года назад