600 х 800 = 480000( пикселей)
1 пиксель 1 байт равно 480000
А) 2 сущности: Магазин и Автомобиль
б) Свойства:
Магазин: Название, Площадь, Адрес, Продавец, Телефон, Директор
Автомобиль: Модель, Производитель, Цена, Количество, Размеры, Цвет, дата изготовления
в) Связи:
<span>• 1:1 (один-к-одному)
</span><span>• N:1 (многие-к-одному)
</span><span>• N:M (многие-ко-многим)
</span><span>• 1:N (один-ко-многим)</span>
Var i,j,sum,num:integer;
result:real;
a:array[1..10,1..10] of integer;
begin
sum:=0;
num:=0;
randomize;
for i:=1 to 10 do
begin
for j:=1 to 10 do
begin
a[i,j]:=-20+random(40);
write(a[i,j]:5);
end;
writeln;
end;
for i:=1 to 10 do
begin
for j:=1 to 10 do
begin
if a[i,j]<0 then
begin
sum:=sum+a[i,j];
num:=num+1;
end;
end;
end;
writeln;
result:=sum/num;
write(result:0:2);
end.