const n=10;
var
x: array [1..n] of integer;
kmax,k, smax : integer;
begin
randomize;
smax:=-99;
for k:=1 to n do
begin
x[k]:=random(70)-35;
write(x[k],' ');
if x[k]>smax then
begin
smax:= x[k];
kmax:=k;
end;
end;
writeln();
writeln(smax);
writeln(kmax);
end.
//Листинг программы и скриншот работы - в приложениях.
//Написано на PascalABC.NET но будет работать в простом Паскале
const
max = 12;
var N,i,j:byte;
sum:integer;
ar:array[1..max, 1..max] of integer;
begin
writeln('Вычислить сумму диагональных элементов квадратной матрицы');
write('Введите размер матрицы N = ');
readln(N);
for i:=1 to N do begin
for j:=1 to N do begin
ar[i,j]:=random(-12,12);//любые числа
write(ar[i,j]:6);
end;
writeln();
end;
sum:=0;
for i:=1 to n do
for j:=1 to n do
if ( i = (n-j+1) ) or ( i = j ) then
sum:=sum+ar[i,j];
writeln('Сумма sum = ', sum);
end.
Смотрите файл *.pas В ANSI кодировке, или pdf файл.
Замечания.
Раз в условии говорилось о таблице, то я решил что массив двумерный.
Раз упоминались четные и нечётные, то массив целых чисел. Некоторая вольность в том, что решил включить и генерацию отрицательных чисел. (А в условии не сказано, что они должны быть положительными.)
Вообще после задания границ массива, можно было реализовать весь функционал программы в одном двойном цикле. И генерацию и анализ и формирование результатов. Но я так понял в задании нужно, чтоб в программе были пользовательские функции.
Кого сильно напрягают комментарии, просто "срубите шапку". Я там предварительные пояснения записывал
В тексте пусть будут.
1. Окно обработки слайдов
2. Файл
3. С текущего или с начала
4. Из вкладок Главная Вставка Резензирование и т.д.
5. Вставка таблиц, картинок, текста, звука видео и т.д.
6. Готовый задний фон
7. Просмотр по времени
8. Для разных путей, или на всякий случай. Либо различные варианты одного слайда
9. Функции подсказок или подробного рассказа
10. Удаление и вырезание
11. См.5
12. Множество форматов, проверка на вирусы и защита паролем
13. Rar, zip, 7z, krz и т.д.
14. В текущую папку, в пусть. Определённого файла или всех.
15. Картинки или маленькие файлы
НЕ УВЕРЕН ЧТО ВСЁ ПРАВИЛЬНО !!
Var a,b:0..1;
begin
writeln(' A B not A A and B A or B A xor B');
for a:=0 to 1 do
for b:=0 to 1 do
writeln((a=1):6,(b=1):6,(not(a=1)):7,(a=1)and(b=1):8,(a=1)or(b=1):8,(a=1)xor(b=1):8);
end.
Результат:
A B not A A and B A or B A xor B
False False True False False False
False True True False True True
True False False False True True
True True False True True False