| function sr_arifm(n,m:integer;a:matr):real; //функция нахождения среднего //арифметического
var i,j:integer; s,k:real; //описание локальных переменных
begin //Открытие операторных скобок
s:=0; //команда присваивания значения переменной s
k:=0; //команда присваивания значения переменной k
for i:=1 to n do //цикл с параметром
for j:=1 to m do //цикл с параметром
if a[i,j]<0 //Если элемент меньше нуля
then //то
begin //Открытие операторных скобок
s:=s+a[i,j]; //команда присваивания значения переменной s
k:=k+1; //команда присваивания значения переменной k
end; //закрытие операторных скобок
if k>0 then //Если переменная k больше нуля - То
sr_arifm:= s/k else // вывод среднего арифметического или
sr_arifm:=0; //присваивание ему нуля
end; //закрытие операторных скобок
procedure stroka; //процедура ввода строки
var s:string; n:integer; //описание локальных переменных
begin //открытие операторных скобок
write('Введите строку содержащую слово "кошка"---');readln(s); //Ввод и чтение строки
if pos('кошка',s)<>0 //Если позиция слова «кошка» в строке не равна 0
then n:=pos('кошка',s); // То переменной n присваивается данная позиция
delete(s,n,5); //происходит удаление слова «кошка»
insert('собака',s,n); //Вставка слова «собака»
writeln(s,'---замененная строка'); //вывод пояснения
end; //закрытие операторных скобок
begin //открытие операторных скобок
textcolor(blue); //выбор цвета текста
textbackground(lightgray); //выбор цвета фона
clrscr; //очистка экрана
gotoxy(10,10); //перемещение курсора на указанную строчку
writeln('Программу выполнил студент группы 093 Волков Иван Николаевич');
gotoxy(10,11); //перемещение курсора на указанную строчку
writeln('В рамках практики для получения первичных профессиональных навыков');
readln; //запись данных
clrscr; //очистка экрана
gotoxy(10,11); //перемещение курсора на указанную строчку
writeln('Даны две матрицы А и В.Вычислить в каждой матрице'); //вывод текста
gotoxy(10,12); //перемещение курсора на указанную строчку
writeln('количество столбцов, где все элементы четные и положительные.'); //вывод текста
gotoxy(10,13); //перемещение курсора на указанную строчку
writeln('Для матрицы с меньшим количеством таких столбцов,'); //вывод текста
gotoxy(10,14); //перемещение курсора на указанную строчку
writeln('найти среднее арифметическое'); //вывод текста
gotoxy(10,15); //перемещение курсора на указанную строчку
writeln('отрицательных элементов.Ввести с клавиатуры строку текста'); //вывод //текста
gotoxy(10,16); //перемещение курсора на указанную строчку
writeln('и заменить все слова "кошка" на "собака".'); //вывод текста
gotoxy(10,17); //перемещение курсора на указанную строчку
writeln('При решении задач использовать процедуры и функции,'); //вывод текста
gotoxy(10,18); //перемещение курсора на указанную строчку
writeln('операторы модулей (CRT и другие)'); //вывод текста
gotoxy(10,19); //перемещение курсора на указанную строчку
| 
Лист
