Program prog;
Uses crt;
var a: array [0..29] of integer;
max, min, i: integer;
begin;
clrscr;
randomize;
max:=-201;
min:=201;
for i:=0 to 29 do
begin
a[i]:=random(401)-200;
write(a[i],' ');
if (a[i]>max)and(a[i]<0) then
max:=a[i];
if (a[i]<min)and(a[i]>0) then
min:=a[i];
end;
writeln;
writeln;
writeln('max neg = ', max);
writeln('min pos = ', min);
readln;
end.
Ключ: интернет
<span>Трудно в учении, легко в бою</span>
// PascalABC.Net 3.0, сборка 1066
begin
var a:=MatrixRandom(2,4,-25,25);
Writeln('Исходная матрица: ',a);
var s:=0;
for var i:=0 to 1 do
for var j:=0 to 3 do
s+=a[i,j];
Writeln('Сумма элементов равна ',s)
end.
<em><u>Тестовое решение:</u></em>
Исходная матрица: [[-15,-12,-9,5],[-8,-3,-23,7]]
Сумма элементов равна -58
В шестнадцатеричной системе счисления для записи цифр, старше 9, приняты обозначения :
A₁₆ =10₁₀ ; B₁₆ =11₁₀ ; C₁₆ =12₁₀ ; D₁₆ =13₁₀ ; E₁₆ =14₁₀ ; F₁₆ =15₁₀
1. ABC₁₆ = 10·16² + 11·16 + 12 = 2748₁₀ = 2748
2. a₁₆ = 341₁₆ = 3·16² + 4·16 + 1 = 833₁₀ = 833
3. a₃ = 221₃ = 2·3² + 2·3 + 1 = 25₁₀ = 25
4. Условие можно прочитать по-разному
1010₁₆ = 1·16³ + 0·16² + 1·16 + 0 = 4096 + 16 = 4112₁₀ = 4112
10101₆ = 1·6⁴ + 0·6³ + 1·6² + 0·6 + 1 = 1296 + 36 + 1 = 1333₁₀ = 1333
Var n,i,s,a:integer;
begin
write('Введите n = '); readln(n);
s:=0; a:=0;
for i:=1 to n do
begin
a:=a+2;
s:=s+a*a;
end;
writeln('Сумма квадратов ',n,' четных натуральных чисел = ',s);
<span>end.</span>
