Составить программу на паскале, которая в двумерном массиве определяет максимальный элемент в каждой строке и записывает его в одномерный массив. для определения максимального элемента в строке использовать function , а для ввода и вывода массивов - procedure
Ответы
Program matrix;
var A: array[1..10, 1..10] of integer;
i, j, mini, minj, maxi, maxj, temp: integer;
begin Randomize;
for i := 1 to 10 do begin
for j := 1 to 10 do begin
A[i, j] := random(100);
write(A[i, j], ' ');
end;
writeln;
end;
mini := 1;
minj:=1;
maxi := 1;
maxj:=1;
for i := 1 to 10 do
for j := 1 to 10 do
begin
if A[i, j] < A[mini,minj] then begin
mini := i;
minj := j;
end;
if A[i, j] > A[maxi,maxj] then begin
maxi := i;
maxj := j;
end;
end;
WriteLn('min = ',A[mini,minj],' это ',mini,' ряд ',minj,' столбца.' );
WriteLn('max = ',A[maxi,maxj],' это ',maxi,' ряд ',maxj,' столбца.' );
temp := A[maxi, maxj];
A[maxi, maxj] := A[mini, minj];
A[mini, minj] := temp;
writeln;
for i := 1 to 10 do begin
for j := 1 to 10 do
write(A[i, j], ' ');
writeln;
end;
readln;
end.
temp - переменная для временного хранения минимальных и максимальных элементов.
var A: array[1..10, 1..10] of integer;
i, j, mini, minj, maxi, maxj, temp: integer;
begin Randomize;
for i := 1 to 10 do begin
for j := 1 to 10 do begin
A[i, j] := random(100);
write(A[i, j], ' ');
end;
writeln;
end;
mini := 1;
minj:=1;
maxi := 1;
maxj:=1;
for i := 1 to 10 do
for j := 1 to 10 do
begin
if A[i, j] < A[mini,minj] then begin
mini := i;
minj := j;
end;
if A[i, j] > A[maxi,maxj] then begin
maxi := i;
maxj := j;
end;
end;
WriteLn('min = ',A[mini,minj],' это ',mini,' ряд ',minj,' столбца.' );
WriteLn('max = ',A[maxi,maxj],' это ',maxi,' ряд ',maxj,' столбца.' );
temp := A[maxi, maxj];
A[maxi, maxj] := A[mini, minj];
A[mini, minj] := temp;
writeln;
for i := 1 to 10 do begin
for j := 1 to 10 do
write(A[i, j], ' ');
writeln;
end;
readln;
end.
temp - переменная для временного хранения минимальных и максимальных элементов.
В задании не указано - требуется ли использовать форму или нет. Вариант документа с формой:
<HTML>
<HEAD>
<SCRIPT>
<!--
function btnClick(n)
{
if (n>5) r=n*n;
else if (n<5) r=n-2; else r=Number(n)+1;
document.frm.res.value=r;
}
//-->
</SCRIPT>
</HEAD>
<BODY>
<H1>Документ с JavaScript</H1>
<FORM name=frm>
Введите число
<INPUT type=text name=num size=5 value=0>
<INPUT type="button" name="bt" value="Щелкни здесь!"
onClick="btnClick(num.value);">
Результат:
<INPUT type=text name=res size=5 value=0>
<BR><INPUT type=reset VALUE="Сброс">
</FORM>
</BODY>
</HTML>
<HTML>
<HEAD>
<SCRIPT>
<!--
function btnClick(n)
{
if (n>5) r=n*n;
else if (n<5) r=n-2; else r=Number(n)+1;
document.frm.res.value=r;
}
//-->
</SCRIPT>
</HEAD>
<BODY>
<H1>Документ с JavaScript</H1>
<FORM name=frm>
Введите число
<INPUT type=text name=num size=5 value=0>
<INPUT type="button" name="bt" value="Щелкни здесь!"
onClick="btnClick(num.value);">
Результат:
<INPUT type=text name=res size=5 value=0>
<BR><INPUT type=reset VALUE="Сброс">
</FORM>
</BODY>
</HTML>
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
function MaxElem(a: array[,] of integer; i: integer): integer;
var
j, m: integer;
begin
m := a[i, 0];
for j := 1 to length(a, 1) - 1 do
if a[i, j] > m then
m := a[i, j];
MaxElem := m
end;
procedure Input(var a: array[,] of integer);
var
i, j: integer;
begin
Writeln('вводите элементы массива');
for i := 0 to length(a, 0) - 1 do
for j := 0 to length(a, 1) - 1 do
read(a[i, j]);
end;
procedure Output(var a: array of integer);
var
i: integer;
begin
Writeln('полученный массив');
for i := 0 to length(a) - 1 do
write(a[i], ' ');
end;
var
m, n, i: integer;
a: array[,] of integer;
b: array of integer;
begin
read(m, n); // ввод числа строк и столбцов
setlength(a, m, n);
setlength(b, m);
Input(a);
for i := 0 to m - 1 do
b[i] := MaxElem(a, i);
Output(b);
end.
Написано на Free Pascal