Uses crt;
var e:array[1..3,1..7] of integer;
s,max,n,m:integer;
index,sum:integer;
<span>procedure max_el;</span>
begin
max:=e[1,1];
sum:=0;
index:=0;
for n:=1 to 3 do
begin
for m:=1 to 7 do
begin
if e[n,m]>max then
begin
max:=e[n,m];
index:=m;
end;
end;
end;
for n:=1 to 3 do
begin
if e[n,index]<0 then
begin
sum:=sum+e[n,index];
end;
end;
writeln('naibolwiy element = ',max,' summa otricatelnyh= ',sum);
end;
begin
clrscr;
writeln('elementy massiva');
writeln;
randomize;
for n:=1 to 3 do
begin
for m:=1 to 7 do
begin
e[n,m]:=random(100) -50;
write('',e[n,m],' ');
end;
writeln;
end;
writeln;
writeln;
max_el;
readkey;
end<span>.</span>
Прикладные программы непосредственно обеспечивают выполнение необходимых работ (расчёты, редактирование текста, рисование и пр.)
<u>Microsoft Excel, Corel Draw, Adobe Photoshop, Microsoft Office World (Power Point и т.д.)
</u>Системные программы выполняют различные вспомогательные функции (создание копий, проверка работоспособности и пр.)
<span><u>Windows , Novell , Mac OS</u></span>
Так вроде уже решал подобную задачу.
Задание 1
5*10³+3*10²+4*10¹+1*10⁰
Задание 2
2*8¹+5*8⁰+3*8⁻¹+4*8⁻²+1*8⁻³
Задание 3
2*6⁻¹+5*6⁻²+3*6⁻³+4*6⁻⁴+1*6⁻⁵
Информационная система<span> — </span>система<span> обработки информации и </span><span>соответствующие организационные ресурсы</span><span>, которые обеспечивают и распространяют </span>информацию.
примеры
<span>Информационная система по отысканию рыночных ниш
</span><span>Информационные системы, ускоряющие потоки товаров.
</span><span>Информационные системы по снижению издержек производства
</span><span>Информационные системы автоматизации технологии
</span>