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

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.

Gochirova98 19 янв. 2022 г., 07:42:39 | 5 - 9 классы

Помогите ?

Помогите !

Паскаль!

ИНФОРМАТИКА!

Составить программу , находящую сумму и произведение трёх чисел !

Tatev02 20 янв. 2022 г., 11:05:43 | 5 - 9 классы

Дано число его удвоить и утроить составить программу в паскаль?

Дано число его удвоить и утроить составить программу в паскаль.

Алёна106789 15 янв. 2022 г., 21:05:55 | 10 - 11 классы

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

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

DuckKing666 1 мар. 2022 г., 21:56:56 | 10 - 11 классы

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

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

Svna3staKatrm 15 мар. 2022 г., 04:17:33 | 10 - 11 классы

Помогите?

Помогите!

Напишите пожалуйста блок - схему и программу для Паскаля!

Ольга198711 26 мар. 2022 г., 18:50:32 | 10 - 11 классы

Помогите пожалуйста составить программу Паскаль 6n = 5 m = 4?

Помогите пожалуйста составить программу Паскаль 6

n = 5 m = 4.

777Фёдор777 9 янв. 2022 г., 03:31:26 | 10 - 11 классы

Набрать в паскале программу флага помогите пожалуйста?

Набрать в паскале программу флага помогите пожалуйста.

Глобал1488 10 янв. 2022 г., 08:51:02 | 10 - 11 классы

Помогите составить программу в паскаль?

Помогите составить программу в паскаль!

Oxotniic 13 мар. 2022 г., 23:38:17 | 5 - 9 классы

Помогите составить эти программы на паскаль?

Помогите составить эти программы на паскаль.

Kristinakristi35 21 янв. 2022 г., 04:41:20 | 10 - 11 классы

Написать программу на паскале ?

Написать программу на паскале ?