Смотри на скриншот я сделал просто не хочу чтоб форматировка текста портилась.Все работает!
const n=3;m=4;
var a:array [1..n,1..m] of integer; i,j,k,max:Integer; ind:array [0..1] of Integer=(1,1);
begin
Randomize;
for i:=Low(a) to High(a) do
for j:=Low(a) to High(a[1]) do
a[i,j]:=Random(100);
for i:=Low(a) to High(a) do
begin
writeln;
for j:=Low(a) to High(a[1]) do
write(a[i,j]:3);
end;
max:=a[1,1];
for i:=Low(a) to High(a) do
for j:=Low(a) to High(a[1]) do
if a[i,j]> max then
begin
max:=a[i,j];
ind[0]:=i;
ind[1]:=j;
end;
writeln;
Writeln(' Max element: ',max);
Write(' Index: ');
for i:=0 to 1 do
write(ind[i],' ');
Readln;
end.<span> </span>
Вводим переменные у, х, а, в
дальше условие
х<10
да пишем пример у= х+а
нет
опять условие
<span>10 ≤ х ≤ 23;
</span>да то пишем пример <span>у = х + в
нет
то снова условие </span><span>х > 23.
да пример </span><span>х + а
нет выводим "нет решение"
в конце вывод "у"</span>
1) a= 4096, L= 1/512 Мб= 16384 бит
N= 2^i, ищем i
i=L/a= 16384/4096=4
i=4бита
N=2^4=16
Program one;
var x, y: real;
begin write('Введите число x: '); read(x); y := x * 1 * x * 2 + x * 1 * x * 3 + x * 2 * x * 3; write('Ответ: ', y);end.