Если элемент стоит выше главной диагонали, то его номер столбца больше, чем номер строки.
Программа будет такая:
PROGRAM Matrix77
var A: array [1..7][1..7] of real; // Объявляем переменные
var i, j: integer
BEGIN
crt;
for i:= 1 to 7 do
begin
for j:=1 1 to 7 do read (A[i][j]); // Вводим начальный массив
readln;
end;
for i:= 1 to 7 do
begin // Проверяем, что элемент выше диагонали
for j:=1 1 to 7 do if j > i then A[i][j]:=0; // Обнуляем его
end;
for i:= 1 to 7 do
begin
for j:=1 1 to 7 do write (A[i][j]); // Выводим конечный массив
writeln;
end;
END.
Это телефон, скайп и т.п.
Лично мне привычно писать и с mod, и с odd, хотя на разных сайтах я действительно встречала MOD чаще. MOD - оператор, выполняющий деление двух чисел и возвращающий целочисленный остаток. Odd проверяет выражение на нечетность. Когда мы начинали изучать Паскаль, нам говорили только про mod, хотя сейчас odd мне кажется удобней. Так что, возможно, это просто неизвестно решающим, не пробовавшим копнуть глубже в информатику.)
Даю 2 варианта:
1)
#include <iostream>#include <list>using namespace std;
int main() { int n, t; cin >> n; list<int> li; for (int i = 0; i < n; i++) { cin >> t; li.push_back(t); } li.sort(); li.unique(); cout << li.size() << endl; return 0;}
2)
#include <iostream>#include <set>using namespace std;
int main() { int n, t; cin >> n; set<int> se; for (int i = 0; i < n; i++) { cin >> t; se.insert(t); } cout << se.size() << endl; return 0;}