Задан двухмерный массив?

Anaboko 3 мая 2020 г., 18:35:48

Program niv ;

const n = 4 ; m = 4 ;

var i, j, d : integer ;

c : real ;

a : array[1.

M, 1.

N] of real ;

begin

Randomize ;

for i : = 1 to m do

begin for j : = 1 to n do begin a[i, j] : = random(10) - 5 ; write(a[i, j] : 3) ; end ;

writeln ;

end ;

for i : = 1 to m do

for j : = 1 to n - 1 do for d : = 1 to n - j do if a[i, d]> ; a[i, d + 1]then begin c : = a[i, d] ; a[i, d] : = a[i, d + 1] ; a[i, d + 1] : = c ; end ;

writeln('сортировка') ;

for i : = 1 to m do

begin

for j : = 1 to n do write(a[i, j] : 3) ;

writeln ;

end ;

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.

Марина24 24 сент. 2020 г., 06:31:21 | 10 - 11 классы

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

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

Умножение двумерного массива.

Pas(29) : Нельзя преобразовать тип integer к array [1.

100] of array [1.

100] of integer.

Вот сама программа : умножение матриц в обратном порядке, т.

Е первый элемент на последний, второй на предпоследний и.

Т. д.

Var x : integer ; a1 : array[1.

100, 1.

100] of integer ; a2 : array[1.

100, 1.

100] of integer ; a3 : array[1.

100, 1.

100] of integer ; i, j, m, n : integer ; begin writeln('Введите размер матрицы') ; readln(m, n) ; for i : = 1 to m do begin for j : = 1 to n do end ; begin writeln('Введите элементы первой матрицы') ; for i : = 1 to m do begin for j : = 1 to n do readln(a1[i, j]) ; end ; end ; begin writeln('Введите элементы второй матрицы') ; for i : = 1 to m do begin for j : = 1 to n do readln(a2[i, j]) ; end ; end ; begin a3 : = a1[i, j] * a2[x + 1 - i, x + 1 - j] ; for i : = 1 to m do begin for j : = 1 to n do readln(a3[i, j]) ; end ; writeln ; end ; readln ; end.

ЗАРАНЕЕ СПАСИБО!

Fendoriys 24 апр. 2020 г., 11:49:56 | 5 - 9 классы

Составить программу для вычисления суммы квадратов чисел от 1 до 15?

Составить программу для вычисления суммы квадратов чисел от 1 до 15.

Функция возведения в квадрат sqr() ; Var , , : ; Begin : = 0 ; For : = to do Begin ; ; End ; Writeln(' = ', ) ; End.

Там, где пробелы, вставить что нужно.

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.

Sashapodkaifom 12 мая 2020 г., 09:27:16 | 5 - 9 классы

Что тут неправильно ?

Что тут неправильно ?

Var a : array[1.

10, 1.

10] of integer ;

i, m, n, j, k : integer ;

s : real ;

begin

Write ('m = ') ; readln(m) ;

write('n = ') ; readln(n) ;

for i : = 1 to m do

for j : = 1 to n do

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

for i : = 1 to n do

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

for i : = 0 to m do

begin for j : = 0 to n do

begin if a[i][j] = 0 then

begin a[i][j] : = i + j ; end ; end ; end ;

a[i, j] : = k ; writeln('k = ', k) ; end.

Дан массив.

Изменить массив по следующему правилу Все нулевые элементы заменить суммой индексов элемента ;

AvEnTaDoR005 25 сент. 2020 г., 12:43:18 | 5 - 9 классы

Program TELESHOP ; var x : real ; begin writeln ('?

Program TELESHOP ; var x : real ; begin writeln ('.

') ; write ('.

') ; write ('.

') ; readln (x) ; if x< ; = 1 then begin if x = 1 then begin writeln ('.

') ; writeln ('.

') ; end else begin writeln ('.

') ; end ; * else begin writeln ('.

') ; end end.

* - место ошибки.

"встречено 'else', а ожидалось оператор" Вопрос : в чем ошибка?

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) ; что то неправильно говорят массив.

Ksusha1037 25 июн. 2020 г., 21:03:03 | 5 - 9 классы

Здравствуйте, помогите пожалуйста найти ошибку program name ; uses crt ; var a : integer ; begin writeln ('Введите время = ') ; readln (a) ; if (a)then ; begin writeln ('ночь') ; end ; / / / if a = 3 ?

Здравствуйте, помогите пожалуйста найти ошибку program name ; uses crt ; var a : integer ; begin writeln ('Введите время = ') ; readln (a) ; if (a)then ; begin writeln ('ночь') ; end ; / / / if a = 3 then begin writeln ('утро') ; readln (d) ; if a = 12 then begin writeln ('день') ; end ; if a = 16 then begin writeln ('вечер') ; / / / if a = 21 then begin writeln ('ночь') ; / / / end ; end ;

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.