Заполнить таблицу Выполняемое действие -> Применяемая команда

а)какое свойство указывает на назначение объекта: ? ответ: являеться носителем информации

б)какое свойство указывает на форму объекта? ответ: круглый

а)домащняя библиотека

в виде таблицы

1.номер

2.название

3.автор

4.полка

б)1.номер

2.слово

3.вопрос

4.род

5.число

6.падеж

в)1.номер

2.имя

3.фамилия

4.отчество

5.телефон

6.адрес

7.дата рождения

8.хобби

var a: array[1..100] of integer;

i,s: integer;

begin

  randomize;   n: =20;   for i: = 1 to n do begin      a[i]: =random(n*10)- 10*n div 2 ;       write(a[i]: 4);       if i mod 10=0 then writeln;

      if a[i]> =0 then s: = s+a[i];   end;

  for i: = 1 to n do begin

      if a[i]< 0 then a[i]: =s;

      write(a[i]: 4);       if i mod 10=0 then writeln;

  end;

end.

var n,a,i: real; begin readln(n); i: =1; a: =0; while i< =n do begin a: =a+power(i,3); i: =i+1; end; writeln(a); end.

вот программа