Предмет: Информатика,
автор: tema210600
Получить одномерный массив, состоящий из номеров последних четных элементов соответствующих строк матрицы. ( составить алгоритм (блок схемы). паскаль)
заранее спасибо
Ответы
Автор ответа:
1
Вероятно вот так:
const nmax=15; var b:array[1..nmax,1..nmax] of integer; a:array[1..nmax] of integer; m,n,i,j:byte; mx:integer; begin randomize; repeat write('Количество строк до ',nmax,' m='); readln(m); until m in [1..nmax]; repeat write('Количество столбцов до ',nmax,' n='); readln(n); until n in [1..nmax]; writeln('Матрица В'); for i:=1 to m do begin for j:=1 to n do begin b[i,j]:=-50+random(101); write(b[i,j]:4); end; writeln;
const nmax=15; var b:array[1..nmax,1..nmax] of integer; a:array[1..nmax] of integer; m,n,i,j:byte; mx:integer; begin randomize; repeat write('Количество строк до ',nmax,' m='); readln(m); until m in [1..nmax]; repeat write('Количество столбцов до ',nmax,' n='); readln(n); until n in [1..nmax]; writeln('Матрица В'); for i:=1 to m do begin for j:=1 to n do begin b[i,j]:=-50+random(101); write(b[i,j]:4); end; writeln;
Похожие вопросы
Предмет: Математика,
автор: arsenovnaaksoola
Предмет: Математика,
автор: Аноним
Предмет: Математика,
автор: bogdanruzmikin56
Предмет: Биология,
автор: irynakey