Program ROBOTA6; Const N = 3 ;
M = 4 ;
Var A: array [ 1.. N, 1.. M ] of integer ; {опис двовимірного масиву NxM}

i, j: integer;

Begin
{блок введення елементів масиву}
Writeln (' Введіть значення елементів таблиці :' );
Writeln ; {організація порожнього рядка}
For i:= 1to N do {зовнішній цикл}
Begin {відкриваюча операторна дужка}
For j:= 1 to M do{внутрішній цикл та зчитування елементів масиву}

Begin {відкриваюча операторна дужка}
Write ( 'А[ ', i , j, '] = ');
readln ( A [ i, j ] );
end; {закриваюча операторна дужка}
Readln;
End; {закриваюча операторна дужка}
Writeln;
Writeln('Загальний вигляд таблиці до перетворення:');
{блок виведення на екран елементів масиву}

Writeln;
for i:=1 to N do
begin

for j:=1 to M do write(A[i,j]:5);
writeln; {після роздрукування і-того рядка перейти на новий рядок}

end;

{блок обробки масиву}

writeln('Загальний вид таблиці після перетворення:');
for i:=1 to N do
begin
for j:=1 to M do if A[i,j]>0 then write (A[i,j]:5)
else write(' '); {кількість пробілів 5}
writeln;
end;
Readln; {затримка роботи наступного оператора}
end.

В двовимірному масиві D[1..5, 1..5] знайти найменший елемент побічної діагоналі.

Показать ответ

Ответ:

igor2285

22.05.2020 04:01

ABS – возвращает абсолютное значение числа.

Примеры. 1. PRINT ABS(4) ((4)) 2. i%=-4; PRINT ABS(i%) ((4)) 3. PRINT ABS(0) ((0))

AND - операция логического сложения.

Примеры. 1. PRINT AND(0,0) ((0)) 2. PRINT AND(0,1) ((0)) 3. PRINT AND(1,0) ((0)) 4. PRINT AND(1,1) ((1))

ASC - возвращает код ASCII первого символа в их последовательности.

Примеры. 1. PRINT ASC (“а”) ((97)) 2. PRINT ASC (“Москва”) ((140)) В данном примере выводится код первого символа, а именно символа «М». Отметим, что символы «а» латинское и «а» на кириллице имеют разные коды, соответственно - 97 и 160.

ATN - возвращает значение арктангенса, где аргумент задан в радианах.

Примеры. 1. PRINT ATN(3.141592) ((-6.278329E-07)) в данном примере в силу неточности задания числа пи, выводится не значение 0, а числа, которое довольно близко к нему 2. PRINT ATN(0) ((0))

BEEP - выдача звукового сигнала.

Пример. BEEP - сигнал, который производит данный оператор не может быть изменен по тональности. Этот сигнал воспроизводится динамиком, который находится в системном блоке, а не при звуковой платы.

BLOAD - копирует данные в область оперативной памяти из файла, в который записывались данные при команды BSAVE.

BSAVE - копирует содержимое области памяти в файл.

CALL - вызов подпрограммы. Отличие от вызова при заключается в том, что основная программа и подпрограмма не имеют общих переменных.

Пример.

DECLARE SUB m1 ()

i1% = 1: PRINT i1%

CALL m1

PRINT " after ", i1%

SUB m1

i1% = 2 : PRINT "sub ", i1%

END SUB

Объяснение: