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>
Принтер - устройство, осуществляющее вывод инофрмации на бумагу
монитор - устройство. показывающее отображение на экране
колонки - уст, осуществляют вывод звуковой информации
мышь- устройство, управление курсором на экране
2 цвета это 1 бит
4 цвета это 2 бита
8 цветов это 3 бита
16 цветов это 4 бита
32 цвета это 5 бит
64 цвета это 6 бит
128 цветов - 7 бит
256 цветов - 8 бит или 1 байт
65536 цветов - 16 бит или 2 байта
16 млн цветов - 24 бит или 3 байта
4 млрд цветов - 32 бита или 4 байта
Ответ:
это рамка у меня получилось
Объяснение
procedure Stars(str: integer);
var
i:integer;
begin
for i:=1 to str do
write('*');
end;