<span>1)Program massiv;
</span>
<span>Var mas:array[</span>1..20<span>] of </span>integer;
a,b,i,sum:integer;
<span><span>Begin
</span></span>
sum:=0;
<span>For i:=</span>1 To 20 Do
<span>
begin
</span>
mas[i]:= random(100); {Заполняем массив случайными числами в промежетке от 0 до 99 (можешь изменить промежуток}
write(mas[i],' ');
<span>
end;
</span>
Writeln('Введите a,b');
<span>
Readln(a,b);
</span>
<span>For i:=</span>1 To 20 Do
<span>
begin
</span><span>if (mas[i]>a) and (mas[i]<b) Then
sum:=sum+mas[i];
end;
Writeln(sum);
end. 2) <span>Program massiv;
</span><span>Var mas:array[</span>1..20<span>] of </span>integer;
i,min,max,pr:integer;<span><span>Begin
</span></span><span>For i:=</span>1 To 20 Do<span><span>
begin
</span></span>mas[i]:= random(15);
write(mas[i],' ');<span>
end;
Writeln;
</span>min:=30000;
max:=0;
<span>For i:=</span>1 To 15 Do<span><span>
begin
</span></span><span>if mas[i]>max Then max:=mas[i];
if mas[i]<min Then min:=mas[i];
end;
pr:=min*max;
Writeln(pr);
end. </span> 3)<span>Program massiv;</span>Var mas:array[1..20] of integer; a,b,i,k:integer;<span><span>Begin</span></span>For i:=1 To 20 Do<span><span>begin </span></span>mas[i]:= random(100); {Заполняем массив случайными числами в промежетке от 0 до 99 (можешь изменить промежуток}write(mas[i],' ');<span>end;</span>Writeln('Введите a,b,k');<span>Readln(a,b,k);</span>i:=1;While i<>20 Do<span><span>begin</span></span>if (mas[i]>a) and (mas[i]<b) and(mas[i] mod k=0) ThenWrite(mas[i],' ');i:=i+1;<span>end; end. </span>4)<span>Var mas:array[</span>1..20<span>] of </span>integer;
i,min,max,pr:integer;<span><span>Begin
</span>randomize;
</span><span>For i:=</span>1 To 20 Do<span><span>
begin
</span></span>mas[i]:= random(100)+1;
write(mas[i],' ');<span>
end;
Writeln;
</span>pr:=1;
<span>For i:=</span>1 To 15 Do<span><span>
begin
</span></span>pr:=pr*mas[i];<span>
end;
Writeln(pr);
end. </span>
</span>
512*2+64*0+8*1+1*4 = 1036
343*2+49*0+7*1+1*4 = 697
216*2+36*0+6*1+1*4 = 442
125*2+25*0+5*1+1*4 = 259
Қажаттын өлшемін қалай орнатады
Дано: I = 1,5 Кб, К = 3072 символа. Найти: N — ? Решение. I= 1,5 Кб = 1,5 • 1024 • 8 = 12 288 бит. I I = I/K = 12288/3072 = 4 бита N=2i = 24 =16 символов
Видимо имеется ввиду выводящий максимальны элемент этого массива
В данном примере матрица формируется при помощи случайных чисел
program MatrixMax;
Uses Crt;
type matrix=array[1..4,1..4] of real;
var m:matrix;
max:real;
{Порождение матрицы случайным образом}
procedure Auto;
var i,j:integer;
begin
randomize;
for i:=1 to 4 do
begin
for j:=1 to 4 do
begin
m[i,j]:=25+random(21);
end;
end;
end;
{Вывод матрицы на экран}
procedure PrintMatrix(mas:matrix );
var j,k:integer;
begin
for k:=1 to 4 do
begin
for j:=1 to 4 do
begin
write(mas[k,j]:7:2);
end;
writeln;
end;
end;
{Нахождение максимального элемента}
procedure Мax;
var i,j:integer;
begin
max:=m[1,1]
for i:=1 to 4 do
begin
for j:=1 to 4 do
begin
if (max<m[i,j]) then max:=m[i,j];
end;
end;
end;
begin
Clrscr;
Auto;
PrintMatrix;
Max;
writeln;
writeln('Максимальный элемент матрицы: ',max);
end.
