Введите из текстового файла целочисленную матрицу размером 6x8. Переверните матрицу, поменяв
Введите из текстового файла целочисленную матрицу размером 6x8. Переверните матрицу, поменяв 1-ю строчку с 6-й строчкой, 2-ю строчку с 5-й, 3-ю строку с 4-й и запишите полученную матрицу в другой файл.
Задать свой вопрос1 ответ
Юра Щубаченко
const
nbsp;nbsp;n = 6;
nbsp;nbsp;m = 8;
type mas = array[1..n,1..m] of integer;
var
nbsp;nbsp;a : mas;
nbsp;nbsp;i, j : integer;
nbsp;nbsp;f : text;
begin
nbsp;nbsp;assign(f, mtrx.txt);
nbsp;nbsp;rewrite(f);
nbsp;nbsp;randomize;
nbsp;nbsp;for i := 1 to n do
nbsp;nbsp;begin
nbsp;nbsp;nbsp;nbsp;for j := 1 to m do
nbsp;nbsp;nbsp;nbsp;begin
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;a[i,j] := random(20) - 10;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;write(f, a[i,j]:4)
nbsp;nbsp;nbsp;nbsp;end;
nbsp;nbsp;nbsp;nbsp;writeln(f)
nbsp;nbsp;end;
nbsp;nbsp;close(f);
nbsp;nbsp;writeln(Файл записан);
nbsp;nbsp;readln
end.
nbsp;nbsp;n = 6;
nbsp;nbsp;m = 8;
type mas = array[1..n,1..m] of integer;
var
nbsp;nbsp;a : mas;
nbsp;nbsp;i, j : integer;
nbsp;nbsp;f : text;
begin
nbsp;nbsp;assign(f, mtrx.txt);
nbsp;nbsp;rewrite(f);
nbsp;nbsp;randomize;
nbsp;nbsp;for i := 1 to n do
nbsp;nbsp;begin
nbsp;nbsp;nbsp;nbsp;for j := 1 to m do
nbsp;nbsp;nbsp;nbsp;begin
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;a[i,j] := random(20) - 10;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;write(f, a[i,j]:4)
nbsp;nbsp;nbsp;nbsp;end;
nbsp;nbsp;nbsp;nbsp;writeln(f)
nbsp;nbsp;end;
nbsp;nbsp;close(f);
nbsp;nbsp;writeln(Файл записан);
nbsp;nbsp;readln
end.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Упражнение 2 Выпишите глаголы и вставьте пропущенные буквы
Русский язык.
Радиус окружности, описанной около равностороннего треугольника, равен 6. Найдите сторону треугольника
Геометрия.
Вычислите силу с которой при давлении 100 КПа атмосфера давит на
Физика.
Синтаксический разбор и схема Но мы сказали, что нам ничего не
Русский язык.
Массовая доля целлюлозы в древесине составляет 50%. Какая масса спирта может
Химия.
помоги мне пожалуста прш
869*(61124-488*125)-50974
Математика.
по шкале высот определить ,в каком направлении происходит понижение релефа уральских гор
География.
Помогите пожалуйста написать Сочинение Овчинникова "победитель'
Литература.
Здравствуйте. Нужен цитатный план испытания лётчика в лесу главы2-13 по повести
Разные вопросы.
Я хочу найти решение и ответ для этой задачи и получить
Математика.
Облако тегов