1.Постройте диаграмму, показывающую соотношение затрат на каждый предмет мебели для класса.

Мебель для класса

Наименование Цена Количество Сумма

Стол письменный 4 200 руб.: 1 : 4 200 руб.

Стол компьютерный 2 700 руб. : 5 : 13 500 руб.

Кресло компьютерное 3 500 руб. : 1 : 3 500 руб.

Стул 800 руб. : 5 : 4 000 руб.

Шкаф книжный 9 000 руб. : 1 : 9 000 руб.

type

  base = record

     id: integer;

     ball: integer;

  end;

var

  t: text;

  a: array of array of integer;

  n: integer;

  st, tmp: string;

  err: integer := 1;

  database: base;

begin

  readln(n);

  setlength(a, n);

  for i: integer := low(a) to high(a) do

     setlength(a[i], 2);

  for i: integer := low(a) to high(a) do

  begin

     readln(st);

     tmp := st;

     delete(tmp, pos(' ', tmp, err), tmp.Length - pos(' ', tmp, err) + 1);

     database.id := strtoint(tmp);

     tmp := st;

     delete(tmp, 1, pos(' ', tmp, err));

     database.ball := strtoint(tmp);

     a[i, 0] := database.id;

     a[i, 1] := database.ball;

  end;

  var j: integer := 0;

  assign(t, 'output.txt');

  rewrite(t);

  while (j <= high(a)) do

  begin

     if (j + 1 < high(a)) and (a[j, 1] = a[j + 1, 1]) then

        if (a[j, 0] < a[j + 1, 0]) then begin

           write(t, inttostr(a[j, 0])); write(t, ' '); write(t, inttostr(a[j, 1])); writeln(t,'');

           write(t, inttostr(a[j + 1, 0])); write(t, ' '); write(t, inttostr(a[j + 1, 1])); writeln(t,'');

        end else begin

           write(t, inttostr(a[j + 1, 0])); write(t, ' '); write(t, inttostr(a[j + 1, 1])); writeln(t,'');

           write(t, inttostr(a[j, 0])); write(t, ' '); write(t, inttostr(a[j, 1])); writeln(t,'');

        end;

     if (j+1=n) then

        write(t, inttostr(a[j, 0])); write(t, ' '); write(t, inttostr(a[j, 1])); writeln(t,'');

     inc(j, 2);

  end;

  close(t);

end.

1. Дан массив a, состоящий из 8 элементов. Получить массив b, в котором b[i] = a[i]*a[i] (1 <= i <=8).
var a,b:array[1..8] of integer;
i:integer;
begin
writeln('a:');
for i:=1 to 8 do
begin
 a[i] := random(10);
 write (a[i], ' ')
 end;
writeln;
writeln('b:');
for i:=1 to 8 do
 begin
 b[i] := a[i]*a[i];
 write (b[i], ' ')
 end;
end.

Пример:
a:
2 9 7 5 2 0 8 7
b:
4 81 49 25 4 0 64 49

2.
var a:array[1..9] of integer;
i:integer;
begin
writeln('a:');
for i:=1 to 9 do
begin
 a[i] := random(50)+10;
 write (a[i], ' ')
 end;
writeln;
for i:=1 to 9 do
 if a[i] mod 2 = 0
  then writeln(a[i], ' - четное число')
  else writeln(a[i], ' - нечетное число')
end.

Пример:
a:
55 51 18 35 33 56 15 56 47 
55 - нечетное число
51 - нечетное число
18 - четное число
35 - нечетное число
33 - нечетное число
56 - четное число
15 - нечетное число
56 - четное число
47 - нечетное число