Добавь модуль Math, создай на форме Label и после implementation <span>{$R *.dfm} вставь
procedure TForm1.FormCreate(Sender: TObject);
const n=10;
var a:array[1..n] of integer;
i,mi,ma,s:integer;
begin
randomize;
s:=0;
ma:=1;
mi:=1;
for i:=1 to n do begin
a[i]:=random(20)-10;
if a[i]>a[ma] then ma:=i
else if a[i]<a[mi] then mi:=i;
label1.caption:=label1.caption + inttostr(a[i]) + ' ';
end;
for i:=min(ma,mi) to max(ma,mi) do s:=s+a[i];
label1.caption:=label1.caption + #13 + inttostr(s);
<span>end;</span></span>
1) 128 * 40 = 5120 (с.) - символов на 1 странице
2) 5120 * 10 = 51200 (с.)
Ответ: 10 страниц содержат 51200 символов.
Во free pascal?
Если хоче порисовать то скачай Basic
Повернутися до попередньоі сторінки
В таблице типа «объект-свойство» одна строка содержит информацию об одном объекте. Столбцы - отдельные характеристики (свойства) объектов. (Например каталог книг: в строках объекты - книги; в столбцах их свойства - автор, название, год выпуска и т.п.).
В таблице типа «объект-объект» отражается взаимосвязь между различными объектами. (Например таблица успеваемости: в строках объекты - ученики; в столбцах объекты - учебные дисциплины; цифры на пересечении строк и столбцов показывают их взаимосвязь - полученные оценки.)