1. В матрице размера 4х3 найти разность между суммой и произведе-нием элементом.
2. Сделать целочисленную матрицу размером 4х4 симметричной от-носительно главной диагонали, заменяя при отсутствии симметрии меньший элемент на больший.
3. Дано целое число N. (N<100), определяющее возраст человека (в го-дах). Определить подпрограмму, дающую для этого числа наименова-ния "год", "года" или "лет": например 1 год, 23 года, 45 лет и т.д.
4. Абитуриенты
Запись:
Ф.И.О, год рождения, средний балл по аттестату, баллы на вступительных экзаменах (4 экзамена)
Результаты обработки данных:
список абитуриентов набравших проходной балл (18) и коли-чество сдавших экзамены без троек
5. Написать процедуру для ввода из файла квадратной матрицы раз-мерности N (N<50). Написать функцию вычисления суммы элементов матрицы на главной диагонали. Вывести матрицу в одно окно на экране, а вычисленную сумму - в другое.
Полная версия: 2 матрицы 1 с функцией 1запись в файл и текст.файл
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);
Код
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);
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.
Код
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.
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');
else if n mod 10 = 1 then writeln('god') else witeln('goda');
Цитата
2. Сделать целочисленную матрицу размером 4х4 симметричной от-носительно главной диагонали, заменяя при отсутствии симметрии меньший элемент на больший.
как может отсутствоватьт симметрия если введена симметричная матрица ?
поясните задание.
и вообще по поводу симметрии, вот такая нужна ?
Если да, то проверка на симметричность такимиже циклами,
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 ...
замена или что там ....
А вы бы не могли подсказать насчет 4 и 5 задачи, а то я совсем не знаю как их делать. Заранее спасибо!
такие задачи многократно решались. юзай поиск (слово "записи" например), а также ФАК.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.