В программе турбопаскаль
10-11 класс
|
Задана квадратная матрица. Переставить строку с максимальным
элементом на главной диагонали со строкой с заданным номером (номер
строки вводится в начале программы)
должно быть:
Описание алгоритма решения задания
Описание переменных и подпрограмм.
Текст программы
Результаты работы программы
Надеюсь расписал подробно.
погоди чуть-чуть, щас напишу
хорошо, я буду ждать)))
надо за компьютер сесть, я с телефона долго писать буду
вы поможете мне? пожалуйста
Другие вопросы из категории
массив из 8 элементов заполнить случайным образом числами от 10 до 20. Заменить все элементы массива меньшие 15 их
удвоенными значениями. Вывести на экран монитора первоначальный и
преобразованный массивы в столбик
(столбики должны быть расположены рядом).
Читайте также
2. Составить программу для упорядоченное двух элементов по убыванию.
программу меняющихся местами первую и последнюю цифру.
комментариев. Комментарии в данном языке программирования начинаются с символов "//" и продолжаются до конца строки. Напишите программу, выполняющую такое преобразование. Входной файл содержит от 1 до 500 строк длиной не более 50 символов с ASCII-кодами от 32 до 127 – текст программы, которую нужно преобразовать. В выходной файл вывести преобразованный текст программы.
Пример ввода
Test* t = new Test(); t->a = 1; t->b = 2; t->go(); // a=1, b=2 -> a=2, b=3Вывод для примера
Test* t = new Test(); t.a = 1; t.b = 2; t.go(); // a=1, b=2 -> a=2, b=3X - Y и вывода значения величины Z. Протестировать программу для X=5.5, X=0, X=-10.2
const
N=20;
var
a:array [1..N] of integer;
i,j,max:integer;
begin
for i:= 1 to N do
readln(a[i]);
max:=99;
j:=a[i];
for i:= 1 to N do
if (j>99) and (j<999) and (j mod 9 <>0) and (j>max) then max:=j;
if max>99 then writeln (max) else writeln ('no');
readln;
end.
программа проверяет только последнее число, а не все 20. где ошибка?