ПомоГите составить задачу на Pascal

[Romantic]

ЛЮди очень надо помоги кто чем может!

1 Задача. Одномерные массивы.

Индексацию элементов заданного массива начать с 1.Для перебора электронного массива испольховать опреатор While.
Даны два векторных числа А и В. Вычеслить вектор С который содержит нечтные элементы вектора А, которых нет в векторе В.


2 Задача. Строковые процедуры и функции.

Дан массив из слов Т[k]. Найти все слова содержащии заданное количество букв.


3 Задача. Строковые процедуры и функции.

Вводится текст. На экран вывести список букв, которые встречаются в тексте больше одного раза.


4 Задача. Двумерные массивы.

Дана целочисленная матрица N(5x4). Найти наименьшие и наибольшие элементы. Вместо наибольшего элемента в матрице записать наименьший и на оборот.Для решения задачи использовать параметр FAR.


5 Задача. Объявление процедур.

Для решения задачи использовать подпрограмму - процедуру. Обмен между главной программой и подпрограммой - через списки формальных и фактических параметров. Даны два числа N1 и N2. Определить на какие из чисел натурального ряда числа N1 и N2 делятся нацело. Еденицу делителем не считать.
N1=1365; N2=330


6 Задача. Объявление процедур.

При решении задачи использовать программу - функцию. Обмен данными между главной программой и подпрограммой при помощи глобальных переменных. Дана матрица C(5x5) найти наибольший элемент в ЗАКРАШЕННОЙ области.

ВООБЩЕМ ОЧЕНЬ НУЖНА ПОМОЩь

[WOLFak]

2.

var
 k,i,kol:longint;
 t:array[1..100]of string;
begin
 readln(k,kol);
 for i:=1 to k do
  readln(t[k]);
 for i:=1 to k do
  if length(t[i])=kol
   then writeln(w[i]);
end.

[WOLFak]

3.

var
 a:array[0..255] of longint;
 i:longint;
 s:string;
begin
 readln(s);
 for i:=1 to length(s) do
 if ord(s[i])>32 then
  inc(a[ord(s[i])]);
 for i:=32 to 255 do
   if a[i]>1 then
    writeln(chr(i));
end.

если надо только с бугвами то там надо помудрить с кодами символов

[Romantic]

РАЗОБРАЛСЯ с ЗАДАЧЕЙ 2 и 3 спасибо WOLFak

И ЕЩЁ ОЧЕНЬ ОСТРО НУЖДАЮСЬ В ОСТАЛЬНЫХ ЗАДАЧАХ

[puporev]

Задача 1.

var a,b,c:array[1..50]of integer;
    n,m,k,i,j,p:integer;
begin
write('Vvedite razmer vectora A n=');
readln(n);
writeln('Vvedite ',n,' elementov vectora A:');
for i:=1 to n do
read(a[i]);
readln;
write('Vvedite razmer vectora B m=');
readln(m);
writeln('Vvedite ',m,' elementov vectora B:');
for i:=1 to m do
read(b[i]);
readln;//закончили ввод
i:=1;p:=0;
while i<=n do
   begin
     if (i mod 2<>0)then //если индекс нечетный
       begin
         j:=1;k:=0;
         while j<=m do  //просматриваем массив В
           begin
            if b[j]<>a[i] then//если элемент в В не совпадает с А
               begin
                 k:=k+1; //считаем его
                 j:=j+1;  //переходим к следующему
               end
            else j:=j+1; //если совпадает, переходим к следующему
           end;
         if k=m then p:=p+1;//если ни разу не совпало, считаем элемент a[i]
         c[p]:=a[i]; //заносим его в массив С
       end;
     i:=i+1;//переходим к следующему элементу массива А
   end;
 writeln('Vector C:');
 for i:=1 to p do //выводим на экран
 write(c[i],' ');
 readln
 end.

[puporev]

Задача 4.
Поскольку параметра FAR в своем компьютере не нашел, использую оператор FOR.

var M:array[1..20,1..10]of integer;
    k,n,i,j,max,min,imax,jmax,imin,jmin,x:integer;
begin
randomize;
write('k=');readln(k);
write('n=');readln(n);
writeln('Ishodnaia matrica:');//создание и вывод матрицы на экран
for i:=1 to k do
   begin
     for j:=1 to n do
       begin
         M[i,j]:=random(40)+10;
         write(M[i,j]:3);
       end;
     writeln;
   end;
readln;
//поиск макс и мин
max:=M[1,1];min:=M[1,1];imax:=1;jmax:=1;imin:=1;jmin:=1;
for i:=1 to k do
for j:=1 to n do
  if M[i,j]>max then
       begin
         max:=M[i,j];
         imax:=i;
         jmax:=j;
       end
  else if M[i,j]<min then
       begin
         min:=M[i,j];
         imin:=i;
         jmin:=j;
       end;
writeln('max=',max,' imax=',imax,'jmax=',jmax);
writeln('min=',min,' imin=',imin,' jmin=',jmin);
readln;
x:=M[imin,jmin]; //обмен местами
M[imin,jmin]:=M[imax,jmax];
M[imax,jmax]:=x;
writeln('Rezultat:');
for i:=1 to k do
   begin
     for j:=1 to n do
       begin
         write(M[i,j]:3);
       end;
     writeln;
   end;
readln;
end.

Задача 5.

var N1,N2:integer;
procedure Delit(x:integer);
var i:integer;
begin
for i:=2 to round(sqrt(x)) do
if x mod i=0 then write(i,' ');
end;
begin
N1:=1365;
writeln('Deliteli chisla ',N1);
Delit(N1);
writeln;
writeln;
N2:=330;
writeln('Deliteli chisla ',N2);
Delit(N2);
readln
end.

[Romantic]

puporev И теБЕ спасибо ОГРОМНОЕ

[puporev]

Задача 6.

const n=5;
var a:array[1..n,1..n] of integer;
    i,j:integer;
function MaxEl:integer;
var max:integer;
begin
max:=-maxint;    //минимальное число типа Integer
for i:=1 to n do
for j:=1 to n do
if ((i<3)and(j>3))or(i>=3)then
if (a[i,j]>max) then max:=a[i,j];
MaxEl:=max;
end;
begin
writeln('Vvedite ',n,'strok po ',n,' elementov matricy:');
for i:=1 to n do
for j:=1 to n do
read(a[i,j]);
readln;
writeln;
writeln('Max el-t v zakr obl=',MaxEl);
readln
end.