2 матрицы 1 с функцией 1запись в файл и текст.файл Опции

[-LEX-]

1. В матрице размера 4х3 найти разность между суммой и произведе-нием элементом.
2. Сделать целочисленную матрицу размером 4х4 симметричной от-носительно главной диагонали, заменяя при отсутствии симметрии меньший элемент на больший.
3. Дано целое число N. (N<100), определяющее возраст человека (в го-дах). Определить подпрограмму, дающую для этого числа наименова-ния "год", "года" или "лет": например 1 год, 23 года, 45 лет и т.д.
4. Абитуриенты
Запись:
Ф.И.О, год рождения, средний балл по аттестату, баллы на вступительных экзаменах (4 экзамена)
Результаты обработки данных:
список абитуриентов набравших проходной балл (18) и коли-чество сдавших экзамены без троек
5. Написать процедуру для ввода из файла квадратной матрицы раз-мерности N (N<50). Написать функцию вычисления суммы элементов матрицы на главной диагонали. Вывести матрицу в одно окно на экране, а вычисленную сумму - в другое.

[FreeMan]

1.

Код

sum:=0;
proizv:=1;
for i:=1 to 3 do
for j:=1 to 4 do begin
inc(sum,a[i,j]);
proizv:=proizv*a[i,j];
end;
writeln(sum-proizv);

[FreeMan]

3.

Код

var
n:byte;
begin
readln(n);
if (n mod 10=0) or (n mod 10>5) or ((n>10) and (n<20)) then writeln('let')
else if n mod 10 = 1 then writeln('god') else witeln('goda');
readln;
end.

[volvo]

FreeMan, внимательнее

if (n mod 10=0) or (n mod 10>=5) or ((n>10) and (n<20)) then writeln('let')
else if n mod 10 = 1 then writeln('god') else witeln('goda');

[klem4]

2. Сделать целочисленную матрицу размером 4х4 симметричной от-носительно главной диагонали, заменяя при отсутствии симметрии меньший элемент на больший.

как может отсутствоватьт симметрия если введена симметричная матрица ?

поясните задание.

[klem4]

и вообще по поводу симметрии, вот такая нужна ?

for i:=2 to n do
     for j:=1 to i-1 do
      begin
         readln(x[i,j]);
         x[j,i]:=x[i,j];
      end;

Если да, то проверка на симметричность такимиже циклами,

Код

if x[i,j]<>x[j,i] then ...

замена или что там ....

[-LEX-]

А вы бы не могли подсказать насчет 4 и 5 задачи, а то я совсем не знаю как их делать. Заранее спасибо!

[FreeMan]

такие задачи многократно решались. юзай поиск (слово "записи" например), а также ФАК.