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>
<span>Frac (15.6) = 0.6 - функция выделяет дробную часть
Trunc(24.9)
= 24 - функция выделяет целую часть
В результате получим 24.6
</span>
Cls
Input x
Y=(2*x+3)^2*(x-5)
Print y
Первая буква 20, т.к. с 0 начинаться не может.
Тогда начинается бувы "Т"
Тогда
Ответ: Г, т.к. Тамара- единственное имя, которое начинается на "Т"
100010,011101=42,35 (вос. сис.)
10010,011101=22,1D (шест. с.)
111 111 111 000 001=77701(в.с)
0111 1111 1100 0001(добавляем 0)=7FC1 (ш.С.)
0,000110101=0,065(в.с) (доб. 00)
0,0110101=0,35(ш.с.)
0,11 100 110 101=0,3465(в.с.)
0,111 0011 0101=0,735(ш.с.)