сервис вопросов и ответовсделать программу по задаче
10-11 класс|
|
В квадратной матрице целых чисел, размерностью N*N, на главной диагонали обнулить все элементы, расположенные после максимального.
Valeryashtygas
12 окт. 2016 г., 23:22:56 (7 лет назад)
Alinчоооо
13 окт. 2016 г., 1:17:52 (7 лет назад)
var
a:array [1..100,1..100] of longint;
i,j,k,n,g,m:longint;
begin
readln(n);
for i:=1 to n do
for j:=1 to n do
read(a[i,j]);
k:=a[1,1]; g:=1; m:=1;
for i:=1 to n do
if a[i,i]>k then begin k:=a[i,i]; g:=i; m:=i; end;
for i:=g to n do
a[i,i]:=0;
for i:=1 to n do
for j:=1 to n do
begin
write(a[i,j],' ');
writeln;
end;
end.
как-то так, на компиляторе не проверял
Ответить
Другие вопросы из категории
у масиві А(n) з неповторюваними елементами вибрати два найближчі за значенням елементи, менші з них помістити на перше місце, а більші-на друге місце в
масиві;інші елементи масива А не змінювати.
Читайте также
Пожалуйста, помогите с задачей в паскале! Написать решение задачи для программы Паскаль. Спасибо)
Имеется
массив А из N произвольных чисел (А(N)), среди которых есть положительные, отрицательные и
равные нулю. Используя оператор цикла, составить программу, выполняющую задачу:
Задачи по информатике, нужно в Паскале сделать программы:
2. Дано натуральное n. Вычислить n!; среднее арифметическое чисел от 1 до n; и среднее геометрическое от 1 до n.
3. Вводится натуральное число a. Вывести среди следующих чисел: 1;1+1/2;1+1/2+1/3;1+.......Найти среди этих чисел первое больше введёного a.
Помогите,пожалуйста, написать программу по теме "Ветвление в алгоритмах" для Pascal. Задача: определить существует ли треугольник со сторонами AB
C и, если существует, то какой он (равнобедренный, равносторонний, произвольный).
Заранее большое спасибо!
Вы находитесь на странице вопроса "сделать программу по задаче", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.