Текстовое поле (input) для написания и кнопки (button) html создат� список ul с id tasklist внутри создать элементы (il) с текстом при нажатие на кнопку у каждой кнопки должна быть кнопки (удалить) и чекс бокс это html
Ответы
Var
A: array[1..100, 1..100] of integer;
B: array[1..100]of integer;
i, j, k, n, m, imax: integer;
manual: boolean;
begin
writeln('Ручной ввод (true/false)==>');
read(manual);
if manual then begin
writeln('Размер массива n, m ==>');
read(n, m);
end
else begin
n := random(10) + 5;
m := random(10) + 5;
end;
for i := 1 to n do
begin
writeln();
for j := 1 to m do
begin
if manual then
read(a[i, j])
else begin
a[i, j] := random(100) - 50;
write(a[i, j]:3, ' ');
end;
end;
end;
writeln();
writeln();
for j := 1 to m do
if j mod 2 = 1 then begin
k := k + 1;
b[k] := 1;
for i := 1 to n do
b[k] := b[k] * a[i, j];
write(b[k], ' ');
end;
writeln();
for i := 1 to k - 1 do
begin
imax := i;
for j := i + 1 to k do
if b[j] > b[imax] then
imax := j;
n := b[i];
b[i] := b[imax];
b[imax] := n;
end;
for i := 1 to k do
write(b[i], ' ');
end.
A: array[1..100, 1..100] of integer;
B: array[1..100]of integer;
i, j, k, n, m, imax: integer;
manual: boolean;
begin
writeln('Ручной ввод (true/false)==>');
read(manual);
if manual then begin
writeln('Размер массива n, m ==>');
read(n, m);
end
else begin
n := random(10) + 5;
m := random(10) + 5;
end;
for i := 1 to n do
begin
writeln();
for j := 1 to m do
begin
if manual then
read(a[i, j])
else begin
a[i, j] := random(100) - 50;
write(a[i, j]:3, ' ');
end;
end;
end;
writeln();
writeln();
for j := 1 to m do
if j mod 2 = 1 then begin
k := k + 1;
b[k] := 1;
for i := 1 to n do
b[k] := b[k] * a[i, j];
write(b[k], ' ');
end;
writeln();
for i := 1 to k - 1 do
begin
imax := i;
for j := i + 1 to k do
if b[j] > b[imax] then
imax := j;
n := b[i];
b[i] := b[imax];
b[imax] := n;
end;
for i := 1 to k do
write(b[i], ' ');
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Информатика Информатика Информатика ">
Автор: glebovaludok
Составить программу вычисления функции:
Автор: elenaneretina
Как измениться сила тока, если сопротивление увеличить вдвое?
Автор: pk199888
Чем отличается рисование фигур правой, и левой кнопкой мыши ?
Автор: vse-v-sad-sdesign
Неисчерпаемый источник информации в сети это
Автор: alenkadon6
Случайности не случайны ✊Случайности не случайны ✊Случайности не случайны ✊Случайности не случайны ✊Случайности не случайны ✊Случайности не случайны ✊Случайности не случайны ✊Случайности не случайны ✊Случайности не случайны ✊Случайности не случайны ✊Случайности не случайны ✊Случайности не случайны ✊♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️♂️