Статистика
Всего в нашей базе более 4 324 243 вопросов и 6 439 506 ответов!

сделать программу по задаче

10-11 класс

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

Valeryashtygas 12 окт. 2016 г., 23:22:56 (2 года назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Alinчоооо
13 окт. 2016 г., 1:17:52 (2 года назад)

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)), среди которых есть положительные, отрицательные и
равные нулю. Используя оператор цикла, составить программу, выполняющую задачу:

Задачи по информатике, нужно в Паскале сделать программы:

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" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.