Написать программу на ассемблере. в массиве из восьми элементов найти минимальный элемент и его индекс

287

371

Посмотреть ответы 1

Ответы на вопрос:

Kira1626

Информатика

4,7(14 оценок)

//прога на pascal`е {не работает на pascalabc.net, т.к. оный использует 2-байтную кодировку unicode, а не 1-байтную кодировку ascii, как более ранние версии pascal`ей} const n = 32*2; var ch: array [1..n] of byte; i, num: byte; begin num: =192; for i: =1 to n do begin ch[i]: =num; inc (num); end; writeln ('символ | код ascii'); writeln (''); for i: =1 to n do writeln (' ', chr(ch[i]), ' | ', ch[i]); end. {версия для pascalabc.net} //прога на pascal`е const n = 32*2; var ch: array [1..n] of byte; i, num: byte; begin num: =192; for i: =1 to n do begin ch[i]: =num; inc (num); end; writeln ('символ | код ascii'); writeln (''); for i: =1 to n do writeln (' ', chr(ch[i]+848), ' | ', ch[i]); end.