Помогите найти ошибку в программе?

Sonetochka 24 сент. 2020 г., 06:31:22

Const

handsfree = true ;

type

mas100_100 = array[1.

100, 1.

100] of integer ;

var

a1, a2, a3 : mas100_100 ;

i, j, m, n : integer ;

procedure InitializeMatrix(var a : mas100_100 ; m, n : integer) ;

var

i, j : integer ;

begin

writeln('Данные матрицы') ;

for i : = 1 to m do

begin

for j : = 1 to n do

if handsfree then begin

a[i, j] : = random(30) ;

write(a[i, j] : 2, ' ')

end

else

read(a[i, j]) ;

writeln ;

end ;

end ;

begin

writeln('Введите размер матриц') ;

readln(m, n) ;

InitializeMatrix(a1, m, n) ;

InitializeMatrix(a2, m, n) ;

writeln('Вывод результата') ;

for i : = 1 to m do

begin

for j : = 1 to n do

begin

a3[i, j] : = a1[i, j] * a2[m + 1 - i, n + 1 - j] ;

write(a3[i, j], ' ') ;

end ;

writeln ;

end ;

readln ;

end.

Komarik21 24 июл. 2020 г., 19:43:53 | 10 - 11 классы

Где ошибка?

Где ошибка?

Const n = 10 ; type TMas = array[1.

N] of integer ; var mas1 : TMas ; procedure ImputMas1(var masTMas : integer) ; var i : integer ; begin for i : = 1 to 10 do begin mas1[i] : = random(n) ; Write(mas1[i] : 3) ; end ; end.

Прыгайзайка 17 янв. 2020 г., 13:47:28 | 5 - 9 классы

Заполните пропуски в программе ввода и вывода 10 целочисленных элементов массива, заданных случайным образом на промежутке [20 ; 40] : Program gh ; var A : array[ 1?

Заполните пропуски в программе ввода и вывода 10 целочисленных элементов массива, заданных случайным образом на промежутке [20 ; 40] : Program gh ; var A : array[ 1.

___] of integer ; i : integer ; begin for i : = 1 to __ do begin A[i] : = random(___) + ____ ; write(____) ; end ; end.

Kerrigan54 3 авг. 2020 г., 16:55:50 | 10 - 11 классы

Задача по двумерному массиву?

Задача по двумерному массиву.

Создать новый одномерный массив из элементов, стоящих под главной диагональю.

Вот шапочка массива : uses crt ; type mas = array [1.

8, 1.

8] of integer ; var M : mas ; i, j : integer ; begin randomize ; for i : = 1 to 8 do begin for j : = 1 to 8 do begin M[i, j] : = random(190) - 95 ; write(M[i, j] : 4) ; end ; writeln ; end ;

Marta134 18 сент. 2020 г., 05:01:56 | 10 - 11 классы

Program pr ; var mas : array[1?

Program pr ; var mas : array[1.

10] of integer ; i, min, ind : integer ; Begin randomize ; For i : = 1 to 10 do Begin mas[i] : = Random(100) ; write(mas[i], ' ') ; End ; writeln() ; min : = mas[1] ; For i : = 1 to 10 do Begin If (min> ; mas[i]) then End ; write('Минимальный элемент массива : ', min) ; End.

Что не верно?

Вот задача : Дан одномерный массив А длиной N.

Определить, на какой позиции нахо - дится минимальный элемент массива.

An26na 9 дек. 2020 г., 03:29:48 | 10 - 11 классы

Помогите исправить код так, что бы массив А, заполнялся рандомно?

Помогите исправить код так, что бы массив А, заполнялся рандомно.

Пожалуйста.

Var a : array[1.

100, 1.

100] of integer ; c : array[1.

20, 1.

20] of real ; b : array[1.

20, 1.

20] of real ; i, j, n, k : integer ; t : real ; r : integer ; begin t : = 0 ; Writeln('Введите порядок матрицы : ') ; readln(n) ; for i : = 1 to n do for j : = 1 to n do begin Write('a[', i, ', ', j, '] = ') ; Readln(a[i, j]) ; end ; for i : = 1 to n do for j : = 1 to n do begin b[i, j] : = 1 / i + j - 1 ; end ; for i : = 1 to n do for j : = 1 to n do begin for k : = 1 to n do begin t : = t + a[i, k] * b[k, j] ; end ; c[i, j] : = t ; t : = 0 ; end ; for i : = 1 to n do begin for j : = 1 to n do begin write(' ', c[i, j] : 2 : 2) ; end ; Writeln ; end ; end.

Make96th 18 янв. 2020 г., 03:04:39 | 10 - 11 классы

USES Crt ; const N = 10 ; VAR A : array[1?

USES Crt ; const N = 10 ; VAR A : array[1.

N] of integer ; k : integer ; Function FUN : integer ; Var i, M : integer ; Begin writeln('Введите число M = ') ; readln(M) ; k : = 0 ; for i : = 1 to N do if A[i] FUN : = k ; End ; Procedure SOSTMAS ; Var i : integer ; Begin for i : = 1 to N do begin A[i] : = Random(199) - 100 ; write(A[i] : 5) ; end ; Writeln ; end ; BEGIN SOSTMAS ; Writeln(FUN) ; что то неправильно говорят массив.

Treio 28 авг. 2020 г., 11:10:47 | 10 - 11 классы

Помогите решить, пожалуйста) var a, b, t, M, R : integer ; Function F(x : integer) : integer ; begin F : = 9 * (x + 19) * (x - 19) + 1 ; end ; begin a : = - 20 ; b : = 20 ; M : = a ; R : = F(a) ; for ?

Помогите решить, пожалуйста) var a, b, t, M, R : integer ; Function F(x : integer) : integer ; begin F : = 9 * (x + 19) * (x - 19) + 1 ; end ; begin a : = - 20 ; b : = 20 ; M : = a ; R : = F(a) ; for t : = a to b do begin if (F(t) < ; R ) then begin M : = t ; R : = F(t) end end ; write(M) ; end.

Lorasa 11 мая 2020 г., 18:48:44 | 10 - 11 классы

Помогите пожалуйста написать в С + + ?

Помогите пожалуйста написать в С + + .

Program Matrix7 ; var a : array [1.

10, 1.

10] of integer ; M, N, K, i, j : Integer ; begin Write('N : ') ; Readln(N) ; Write('M : ') ; Readln(M) ; Write('K : ') ; Readln(K) ; for i : = 1 to M do begin writeln(i, ' : ') ; for j : = 1 to N do begin Write(j, ' : ') ; Read(a[i, j]) ; end ; end ; for j : = 1 to N do begin Write(' : ', a[K, j]) ; end ; writeln(' : ') ; end.

Дана матрица размера М и N и целое число К ( 1≤ К ≤ М).

Вывести элементы К - й строки данной матрицы.

Djekson2014 30 дек. 2020 г., 03:36:50 | 5 - 9 классы

Var s, k : integer ; Begin s : = 100 ; for k : = 2 to 7do s : = s + 1 ; writeln(s) ; End?

Var s, k : integer ; Begin s : = 100 ; for k : = 2 to 7do s : = s + 1 ; writeln(s) ; End.

Bk25 19 окт. 2020 г., 06:46:31 | 5 - 9 классы

Определить s : 1) Var s, k : integer ; Begin s : = 0 ; for k : = 14 to 18 do s : = s + 7 ; writeln(s) ; End?

Определить s : 1) Var s, k : integer ; Begin s : = 0 ; for k : = 14 to 18 do s : = s + 7 ; writeln(s) ; End.

2) Var s, k : integer ; Begin s : = 0 ; for k : = 1 to 11 do s : = s + 12 ; write(s) ; End.

3) var s, k : integer ; begin s : = 100 ; for k : = 0 to 10 do s : = s - 5 ; writeln (s) ; end.