10 задач с решениями программированием на Паскале

Задача 1.Условие Найти среднее арифметическое общей совокупностиэлементов тех строк заданной матрицы, последний элемент которых равен 1.Программа program S2 Z1 type m array 1 100,1 100 of integer var A m procedure vvod m,n integer var x m var i,j integer begin writeln введитеэлементы массива for i 1 to m dofor j 1 to n doread x i,j end procedure arf m,n integer var x m var i,j,s integer sr real beginfor i 1 to m do begin s 0 sr 0 if x i,n 1 then beginfor j 1 to n dos s x i,j sr s n writeln среднееарифметическое ,i, строки равно ,sr 5 2 end end end beginvvod 3,3,A arf 3,3,A end.Задача 2.Условие Получить массив Х n по правилу Хi 1,если в i-м столбце заданной матрицы есть хотя бы один элементпревышающий заданное значение С, иначе Xi 0. Найти общее число элементов, больших С. Программа program S2 Z2 type m array 1 100,1 100 of integer mas array 1 100 of integer var A m procedure vvod m,n integer var x m var i,j integer begin writeln введите элементы массива for i 1 to m dofor j 1 to n doread x i,j end procedure moped m,n integer var y m var i,j,c,k integer X mas begin k 0 writeln введитевеличину С readln c for j 1 to n do x j 0 for j 1 to n dofor i 1 to m doif y i,j gt c then begin X j 1 k k 1 end writeln элементы массива Х for j 1 to n do write X j , writeln writeln число элементов матриципревышающих число ,c, равно ,k end beginvvod 2,5,A moped 2,5,A readln end.Задача 3.Условие Дан массив A 5,5 . Изменить часть матрицы,находящуюся под главной диагональю следующим образом если элемент A i,j этой части матрицы больше элемента A j,i , то задать элементу A i,j новое значение, равное полу сумме двух этихэлементов.Программа program S2 Z3 type m array 1 100,1 100 of real var A m procedure vvod m,n integer var x m var i,j integer beginwriteln введите элементымассива for i 1 to m dofor j 1 to n doread x i,j end procedure mat m,n integer var x m var i,j integer t real beginwriteln измен нный матрица A i,j будет выглядеть так for i 1 to m dofor j 1 to n doif i gt j then if x i,j gt x j,i then x i,j x i,j x j,i 2 for i 1 to m dofor j 1 to n dowrite A i,j 2 1, end beginvvod 5,5,A mat 5,5,A end.Задача 4.Условие Определить самую длинную последовательностьподряд идущих нулей в заданном одномерном массиве.Программа program S2 Z4 type m array 1 100 of integer var A m procedure vvod m integer var x m var i integer begin writeln введите элементы массива for i 1 to m doread x i end procedure moped m integer var x m var i,k,n integer begin k 0 n 0 for i 1 to m doif x i 0 then k k 1 else begin if x i-1 0 then if k gt n then n k k 0 end if k gt n thenwriteln самая большаяпоследовательность нулей состовляет ,k elsewriteln самая большаяпоследовательность нулей состовляет ,n end beginvvod 20,A moped 20,A end.Задача 5.Написать программу, считывающую заданное количествоодномерных массивов, определяющую минимальный элемент в каждом из них иподсчитывающую количество нулей среди элементов, расположенных за минимальным.Программа program S2 Z5 type m array 1 100 of integer mas array 1 10 of m var A mas procedure vvod kn integer x mas var y m i,t,k,min,k0 integer beginfor k 1 to kn do begink0 0 min 1000 writeln введите кол-во эл-ов в ,k, -ом массиве read t writeln теперь введите элементыэтого массива for i 1 to t doread y i for i 1 to t doif y i lt min then min y i writeln минимальный элемент этогомассива равен ,min for i 1 to t doif y i min then for i i to t doif y i 0 then k0 k0 1 writeln количество нулей массивапосле минимального значения равно ,k0 write write end end beginvvod 5,A end.Задача 6.Условие Написать программу подсчитывающую в каждой из заданных строкколичество слов мама . Программа program S2 Z6 type str string 100 ms array 1 100 of str var A ms procedure vvod m integer var x ms var i integer beginfor i 1 to m do begin writeln введите ,i, -ю строку readln A i end end procedure moped m integer var x ms var i,k integer st str beginfor i 1 to m do begin k 0 st A i while pos мама ,st lt gt 0 do begin k k 1 delete st,pos мама ,st ,4 end writeln кол-во слов мама в ,i, -ой строке ,k end end beginvvod 5,A moped 5,A end. Задача 7.Условие Дан массив из 7 строк, в каждой из которых не более 50 элементов.

Удалить изкаждой строки все пробелы и записать количество удал нных пробелов в конец этойстроки.Программа program S2 Z7 type s string 50 ms array 1 100 of s var A ms procedure vvod m integer var x ms var i integer beginfor i 1 to m do begin writeln введите ,i, -ю строку readln A i end end procedure prob m integer var x ms var i,k integer st,p s beginfor i 1 to m do beginst x i k 0 while pos ,st lt gt 0 do begin delete st,pos ,st ,1 k k 1 end str k,p insert p,st,length st 1 writeln i, -ая строка , st end end beginvvod 7,A prob 7,A end.Задача 8.Прграмма program S2 Z8 type ft text mas array 1 100 of string var f1 ft k,i,j integer s string A mas procedure sozd var f ft n integer var i integer s string begin assign f, c 1.txt rewrite f for i 1 to n dobegin writeln введите ,i, -ю строку readln s writeln f,s end close f end procedure w var f ft var s string begin writeln измененный фаил будет выглядеть так reset f while not eof f do begin readln f,s writeln s end close f end begin writeln введите кол-во строк в файле readln k sozd f1,k reset f1 while not eof f1 dobegin for i 1 to k do begin readln f1,s A i s end end for j 1 to k dofor i 1 to k doif length a i lt length a i-1 then begins a i a i a i-1 a i-1 s end close f1 rewrite f1 for i 1 to k do writeln f1,a i close f1 w f1 end.Задача 9.Условие В файле из вещественных чисел переставитьэлементы таким образом, чтобы сначала были записаны все положительные, затемвсе отрицательные, а потом все нули.Программа program S2 Z9 type fi file of integer m array 1 100 of integer var f1 fi n integer procedure vvod n integer var f fi var i,a integer beginassign f, c f.int rewrite f writeln Введите компоненты файла for i 1 to n do beginread a write f,a end close f end procedure sort n integer var f fi var buf fi s,i,j,k integer a m beginreset f assign buf, c buf.int rewrite buf while not eof f do beginfor i 1 to n do begin read f,s A i s end end for j 1 to n dofor i 1 to n doif a i gt a i-1 then begins a i a i a i-1 a i-1 s end k 0 for i 1 to n doif a i 0 then begin s a i a i a n-k a n-k s k k 1 end for i 1 to n do write buf,a i close buf close f erase f rename buf, c f.int end procedure w var f fi var a integer beginreset f while not eof f do beginread f,a write a 4 end end beginwriteln Задайте кол-вокомпонентов файла readln n vvod n,f1 sort n,f1 w f1 write end.Блок схема Задача 10.Условие Записать в конец каждой строки текстового файлаколичество слов в этой строки.Программа program S2 Z10 type ft text mas array 1 100 of string var f1 ft k integer procedure sozd var f ft n integer var i integer s string begin assign f, c f.txt rewrite f for i 1 to n dobegin writeln введите ,i, -ю строку readln s writeln f,s end close f end procedure kslov var f ft var s,pk,p string k integer buf ft beginreset f assign buf, c buf.txt rewrite buf while not eof f do begin k 0 readln f,s p s while pos ,p gt 1 do begink k 1 delete p,1,pos ,p end str k,pk insert pk,s,length s 1 writeln buf,s end close f close buf erase f rename buf, c f.txt end procedure w var f ft var s string begin writeln измененный фаил будет выглядеть так reset f while not eof f do begin readln f,s writeln s end close f end beginwriteln введите кол-во строк вфайле readln k sozd f1,k kslov f1 w f1 end.Блок схема.