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

for i:=1 to t do

read(y[i]);

for i:=1 to t do

if y[i]<min then min:=y[i];

writeln('минимальный элемент этого массива равен ',min);

for i:=1 to t do

if y[i]=min then for i:=i to t do

if y[i]=0 then k0:=k0+1;

writeln('количество нулей массива после минимального значения равно ',k0);

write;

write;

end;

end;

begin

vvod(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;

begin

for 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;

begin