var
a:array[1..10,1..10] of integer;
b:array[1..10,1..10] of integer;
sum:array[1..10,1..10] of integer;
pol,otr,max,min:real;
i,j,indexi,indexj:integer;
begin
min:=0;
max:=0;
randomize;
for j:=1 to 10 do
begin
for i:=1 to 10 do
begin
randomize;
a[i,j]:=random(51);
randomize;
b[i,j]:=random(51);
a[i,j]:=a[i,j]*2;
writeln(a[i,j]);
a[i,j]:=a[i,j]/2;
end;
end;
for j:=1 to 10 do
begin
for i:=1 to 10 do
begin
a[i,j]:=a[i,j]+b[i,j];
writeln(a[i,j]);
a[i,j]:=a[i,j]-b[i,j];
end;
end;
for j:=1 to 10 do
begin
for i:=1 to 10 do
begin
if a[i,j]<min then
begin
min:=a[i,j];
indexi:=i;
indexj:=j;
end;
end;
end;
writeln(min,indexi,indexj);
for j:=1 to 10 do
begin
for i:=1 to 10 do
begin
if (a[i,j]>0) and (a[i,j]>max) then
max:=a[i,j];
end;
end;
writeln(max);
max:=0;
for j:=1 to 10 do
begin
for i:=1 to 10 do
begin
if (a[i,j]<0) and (a[i,j]>max) then max:=a[i,j];
end;
end;
writeln(max);
end.
программа выполняет сразу все 7 пунктов. Значения задаются сами. На выходе с каждой строки Вы получите каждый пункт задания.
234000 = 2.34×10⁵
0.0045 = 4.5×10⁻³
678 = 6.78×10²
7.302 = 7.302×10⁰
4090 = 4.09×10³
0.0306 = 3.06×10⁻²
К каким типам можно отнести перечисленные ниже данные?
200 - целое, 1 бaйт без знака, 2 байта со знаком
-17 - целое, 1 байт
2305 - целое, 2 байта
5.89 - вещественное
56890 - целое, 2 байта без знака, 4 байта со знаком (3 байта не бывает)
-56890 - целое 4 байта
-32767 - целое, 2 байта
-32769 - целое, 4 байта
2147483648 - целое, 4 байта
{ - символ, байт
7 - символ, байт
Привет - строка, 6 байт ASCII, 12 байт Unicode
1945 год - строка, 8 байт ASCII, от 11 до 16 байт Unicode (в разных стандартах)
-31009 - целое, 2 байта
byte - строка, 4 байта ASCII, от 4 до 8 байт Unicode