Задача Паскаль. Щедро отблагодарю за решение! - есть ответ

Без имени, 207 просмотров

Тема ФУНКЦИИ !
даны 3 символьные матрицы.
а) ту матрицу,где есть хотя бы одна гласная - транспонировать.
б) в той матрице,на главной диагонали которой все цифры,найти наименьшую и удалить соответствующую строку.

Вместе с решением пишите wmr кошелёк

Примечание:
unit7

Ругается на procedure ReadM(var m: array[1..N, 1..N] of char);

'OF' expected but '[' found

Ответы:

unit7

Ну держи :) R313381888327
CONST
N = 3;
inf = 1 shl 30;
TYPE
myArray = array[1..N, 1..N] of char;
myArray2 = array[1..N - 1, 1..N] of char;
var
m1, m2, m3: myArray;
m11, m22, m33: myArray2;
i, j, code, dig, str, k: integer;
temp: char;

unit7

Хмм, а у меня наоборот ругался :) Сейчас в Delphi посмотрю
Смотрите измененный код.

13 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.