Команда обращения к процедуре:
Делай /имя процедуры/
Базовая эталонная модель OSI является концептуальной основой, определяющей характеристики и средства открытых систем. Она определяет взаимодействие открытых систем, обеспечивающее работу в одной сети систем, вьшускаемых различными производителями, и координирует:• взаимодействие прикладных процессов;• формы представления данных;• единообразное хранение данных;• управление сетевыми ресурсами;• безопасность данных и защиту информации;<span>• диагностику программ и технических средств.</span>
Var a:array[1..10] of integer;
i,p:integer;
begin
p:=1;
for i:=1 to 10 do begin
a[i]:=random(-10,10);
if not odd(i) then p*=a[i];
write(a[i]:3);
end;
writeln;
writeln(p);
<span>end.</span>
Держись чел. это сложно, не представляю как ты там