Program massiv;
var
a: array [1..50, 1..50] of real;
i, j, m, n: integer;
begin
writeln('ввод количество строк');
read(n);
writeln('ввод количество столбцов');
read(m);
for i := 1 to n do
begin
for j := 1 to m do
begin
a[i, j] := random(10);
write(a[i, j]:5);
end;
writeln;
end;
end.
На листочке всё написанно, но на всякий пожарны диктую ответы. Это48:
4,
6,
5,
4,
7.
Это49:
5,
2,
5,
5,
7.
Var i, min, max: integer;
function f(n: integer):integer;
begin
f:=n*n-4*n+3;
end;
begin
min := f(1);
max := f(1);
for i:=1 to 3 do
begin
if f(i) > max then max := f(i);
if f(i) < min then min := f(i);
end;
writeln(min, ' ', max)
end.
Программа со статическим массивом:
Var
M: array[1..32767] of real;
Min: real;
N, i: integer;
Begin
Write('N = ');ReadLn(N);
if (N <= 0) then
WriteLn('Количество элементов должно быть положительно')
else
begin
Write('Введите элементы массива в количестве ',N,' штук');
For i:= 1 to N do
Read(M[i]);
Min := M[1];
For i:= 2 to N do
if (M[i] < Min) then
Min := M[i];
WriteLn;
Write('Получившийся массив:');
For i:= 1 to N do
begin
M[i] := M[i] / Min;
Write(' ',M[i]);
end;
end
End.
16*64=1024
1024*64=65536
65536*256=16777216 бит
16бит=2байт
1мегабайте=1000000байт
16777216=2,097152мегабайт