Помогите составить программы в паскале в 2 - х заданиях 5 вариант(в табличке13)?

Информатика | 10 - 11 классы

Помогите составить программы в паскале в 2 - х заданиях 5 вариант(в табличке13).

Ответить на вопрос
Ответы (1)
DuckKing666 14 янв. 2022 г., 20:01:14

Const n = 6 ; m = 8 ;

var a, b, c : array[1.

N, 1.

M]of integer ; i, j, min, max : integer ;

begin

for i : = 1 to n do for j : = 1 to m do begin a[i, j] : = i - j ; b[i, j] : = sqr(i + j) ; c[i, j] : = a[i, j] + b[i, j] ; end ;

writeln('A : ') ;

for i : = 1 to n do begin for j : = 1 to m do write(a[i, j] : 4) ; writeln ; end ;

writeln('B : ') ;

for i : = 1 to n do begin for j : = 1 to m do write(b[i, j] : 4) ; writeln ; end ;

min : = c[1, 1] ;

max : = min ;

writeln('C : ') ;

for i : = 1 to n do begin for j : = 1 to m do begin write(c[i, j] : 4) ; if c[i, j]max then max : = c[i, j] ; end ; writeln ; end ;

writeln('min = ', min) ;

writeln('max = ', max) ;

end.

Const n = 6 ; m = 8 ;

var a : array[1.

N, 1.

M]of integer ; b : array[1.

M, 1.

N]of integer ; c : array[1.

N, 1.

N]of integer ; i, j, k, min, max : integer ;

begin

writeln('A : ') ;

for i : = 1 to n do begin for j : = 1 to m do begin a[i, j] : = sqr(i - j) ; write(a[i, j] : 4) ; end ; writeln ; end ;

writeln('B : ') ;

for i : = 1 to m do begin for j : = 1 to n do begin b[i, j] : = (i + j) * sqr(i + j) ; write(b[i, j] : 5) ; end ; writeln ; end ;

writeln('C : ') ;

for i : = 1 to n do for j : = 1 to n do for k : = 1 to n do c[i, j] : = c[i, j] + a[i, k] * b[k, j] ;

min : = c[1, 1] ;

max : = min ;

for i : = 1 to n do begin for j : = 1 to n do begin write(c[i, j] : 6) ; if c[i, j]max then max : = c[i, j] ; end ; writeln ; end ;

writeln('min = ', min) ;

writeln('max = ', max) ;

end.

На этой странице сайта, в категории Информатика размещен ответ на вопрос Помогите составить программы в паскале в 2 - х заданиях 5 вариант(в табличке13)?. По уровню сложности вопрос рассчитан на учащихся 10 - 11 классов. Чтобы получить дополнительную информацию по интересующей теме, воспользуйтесь автоматическим поиском в этой же категории, чтобы ознакомиться с ответами на похожие вопросы. В верхней части страницы расположена кнопка, с помощью которой можно сформулировать новый вопрос, который наиболее полно отвечает критериям поиска. Удобный интерфейс позволяет обсудить интересующую тему с посетителями в комментариях.