Program sum;
var
Arr: array [1..10] of integer;
n,i: integer;
Sum: integer;
begin
{Заполнение массива и подсчёт суммы}
n:=10;
randomize;
Sum:=0;
for i:=1 to n do begin
Arr[i]:=random(100);
write(Arr[i],',');
if Arr[i] mod 5=0 then
Sum:=Sum+Arr[i];
end;
writeln;
writeln('сумма элементов кратных 5 равна ', Sum);
readln;
end.
16 Мбайт=2^4*2^23 (бит)
8^x бит=2^3x (бит)
2^3x =2^27
3x=27
x=9
Прикладные программы непосредственно обеспечивают выполнение необходимых работ (расчёты, редактирование текста, рисование и пр.)
<u>Microsoft Excel, Corel Draw, Adobe Photoshop, Microsoft Office World (Power Point и т.д.)
</u>Системные программы выполняют различные вспомогательные функции (создание копий, проверка работоспособности и пр.)
<span><u>Windows , Novell , Mac OS</u></span>
2) положить на стол. 4)начать писать что надо. 5)проверить. 8)решить его в черновике...