Ответ:
program kod;
var
a: array [1..10] of Integer;
i, p: Integer;
begin
for i:=Low(a) to High(a) do a[i]:=-40+Random(91);
p:=1;
for i:=Low(a) to High(a) do if (a[i]>0) and (a[i] mod 7=0) then p:=p*a[i];
end.
Объяснение:
У меня второй вариант решения. Размерность массива: [1..10] можно любую делать
Надо найти I. i=128. K=500*120. I=K*i=500*120*128=60000*128=7680000 бит=960000байт. Можно было бы представить 128 как 2 в 7 степени, и считать в степенях двойки. но перевод нужен только в байты
При ремонте квартиры необходимо знать метраж (ширина, длина комнат, высота потолков), каждая комната представляет собой квадрат или прямоугольник. Для покупки строительных материалов это важно знать. Необходимо также уточнить, где проложены коммуникации (электропроводка и пр.).
<span>Б) используют пустой оператор ввода </span>