Помогите решить задачи девушке!

[Lapyle4ek]

Пожалуйста! Срочно надо! До 06.01.2008г до вечера надо решить эти задачи!

на строки: форматирование
дан текст, состоящий из предложений разделимых точками. напишите программу, производящую следующее форматирование: после каждой точки в конце предложения должен стоят хотя бы один пробел, первое слово в предложении должно начинаться с прописной буквы. Замечание: текст должен быть как на русском, так и на английском языке
одномерный массив:
• задана последовательность из N вещественных чисел. Вычислить сумму чисел, порядковые номера которых являются простыми числами.
• дан целочисленный массив A[n], среди элементов есть одинаковые. создать массив из различных элементов A[n].
двумерный массив:
расположить столбцы матрицы D[M,N] в порядке возрастания элементов k-ой строки (1<=k<=M).
подпрограммы:
найти все натуральные числа, не превосходящие данного n, которые делятся на каждую из своих цифр
целочисленная арифметика:
• Дано натуральное k. напечатать k-ю цифру последовательности 12345678910111213..., в которой выписаны поряд все натуральные числа.

[Kostia]

Одномерный массив(1):

program mas;
const n=1000;
var
  m: array[1..n]of real;
  s: real;
  i: integer;
  
function prostoe(x:integer):boolean;
var
  k: integer;
begin
  result:=true;
  for k:=2 to round(x/2) do
    if x mod k=0 then
    begin
      result:=false;
      break;
    end;
end;

begin
  cls;
  for i:=1 to n do
    m[i]:=random(10000)/(1+random(10000));
  s:=0;
  for i:=1 to n do
    if prostoe(i) then
      s:=s+m[i];
  writeln(s);
end.

Писал на Паскале.

[Lapyle4ek]

Спасибо большое! А можно её решить без функций?

[Virtson]

program mas;   
const n=1000;   
var   
  m: array[1..n]of real;   
  s: real;   
  x: integer;    
  k: integer;  
  prostoe: boolean;   
  
begin   
  cls;   
  for x:=1 to n do   
    m[x]:=random(10000)/(1+random(10000));   
  s:=0;   
  for x:=1 to n do 
  begin
     prostoe:= true;   
     for k:=2 to round(x/2) do   
     if x mod k=0 then   
     begin   
       prostoe:=false;   
       break   
     end;   
     if prostoe then   
       s:=s+m[x];
  end;   
  writeln(s);   
end.

[Lapyle4ek]

Спасибо! А что такое
begin
cls;???

[Kostia]

cls чистит экран(можно стереть)

Одномерный массив(2):

program mas;
const n=50;
var
  m: array[1..n]of real;
  i,k: integer;
  t: boolean;
begin
  for i:=1 to n do
  begin
    m[i]:=random(n);
    write(m[i],' ');
  end;
  for i:=1 to n do
    repeat
      t:=false;
      for k:=1 to n do
        if (m[i]=m[k])and(k<>i) then
        begin
          t:=false;
          m[i]:=random(n);
          break;
        end
        else
          t:=true;
    until t;
  writeln(' ');
  for i:=1 to n do
    write(m[i],' ');
end.

[Lapyle4ek]

буду сильно благодарна если решите еще задачки!

[puporev]

на строки: форматирование
дан текст, состоящий из предложений разделимых точками. напишите программу, производящую следующее форматирование: после каждой точки в конце предложения должен стоят хотя бы один пробел, первое слово в предложении должно начинаться с прописной буквы. Замечание: текст должен быть как на русском, так и на английском языке

var s:string;
    i:integer;
begin
clrscr;
Write('Text:');readln(s);
for i:=length(s) downto 1 do
    begin
      if (s[i]='.')and (s[i+1]<>' ')and (i<length(s)) then
      insert(' ',s,i+1);
    end;
for i:=length(s) downto 1 do
    begin
      if (i=1)or (s[i-2]='.')then
        case s[i] of
        'a'..'z':s[i]:=UpCase(s[i]);
        'а'..'п':dec(s[i],32);
        'р'..'я':dec(s[i],80);
             'ё':s[i]:='Ё';
        end;
    end;
write(s);readln;
end.

Что-то поторопился и не совсем правильно написал. Хотел уточнить: между предложениями может быть сколько угодно пробелов или один?
Еще раз поправил. Сейчас нормально работает если при вводе текста между предложениями нет пробела или один пробел.

[Lapyle4ek]

По идее должен быть один пробел. Как обычное предложение

[Lapyle4ek]

А еще, её можно переписать в делфи?