Паскаль. Масив.

[Айринна]

Привіт! Допоможіть будь-ласка!
1.Дано деякий тектс. Підрахувати кількість речень у тексті створивши для цього відповідну процудуру. У програмі пеалізувати виклик цієї процедури.
2. Дано одновімірний масив цілих чисел А[і], де і=1,2,..n. Знайти мінімальний елемент масиву. Визначити скільки раз у масиві зустрічається мінімальний елемент.
From Stilet:
Привет! Помогите пожалуйста!
1.Дан некоторый текст. Подсчитать количество предложений в тексте создав для этого соответствующую процедуру. В программе реализовать вызов этой процедуры.

2. Дано одномерний массив целых чисел А [и], где i = 1,2, .. n. Найти минимальный элемент массива. Определить сколько раз в массиве встречается минимальный элемент.

program MaxMin;
var
  a : array [1..5] of integer;
  i : integer;
  MinE : integer;
begin
  for i := 1 to 5 do
    begin
      Write('Enter next element: ');
      ReadLn(a[i]);
    end;
  MinE := a[1];
  for i := 2 to 5 do
    if a[i] < MinE then
      MinE := a[i];
  WriteLn(MinE);
  readln;
end.

это я нашла минимальный элемент, а как найти кольчесто минимальных элементов???


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.
А так же учитывать что форум русскоязычный.

[Mad_Cat]

а как найти количество минимальных элементов???

c:=0;
for i := 1 to 5 do
if a[i]:=minE then c:=c+1;

[Айринна]

thanks!
1.Дано деякий тектс. Підрахувати кількість речень у тексті створивши для цього відповідну процудуру. У програмі пеалізувати виклик цієї процедури
====а как быть с этой?????

[Mad_Cat]

а как быть с этой?????

для начала перевести на русский

[Sparkman]

Сообщение от Айринна

thanks!
1.Дан некоторый текст. Подсчитать количество предложений в тексте создав для этого соответствующую процедуру. В программе реализовать вызов этой процедуры
====а як бути з цією?????

function count(text:string):integer;
var i,n:integer;
begin
     n:=0;
     for i:=1 to length(text) do
     if text[i]='.' then inc(n);
     count:=n;
end;

[Айринна]

ничиго не пойму а почему функцыя а не процедура?? и что такое count, inc???(((

[Mad_Cat]

count - название
inc(n) - эквивалент n:=n+1;

procedure count(text:string;var n:integer);
var i:integer;
begin
     n:=0;
     for i:=1 to length(text) do
     if text[i]='.' then inc(n);
end;

ничиго не пойму а почему функцыя а не процедура??

сложно было чуть подумать!? хотя да у кого я спрашиваю( "'это прескорбно"

[Айринна]

и еще:
1.При каких условиях цыкл for выполняется 1 раз?
2. Если цыкл while не выполняется и одного раза это ошибка?
3.какое значение имеет счетчик после завершения цыкла for?

[Айринна]

хааха у тут Бородач))
почему это срвзу "у кого я спрашиваю" а будующий переводчик а не программист!!!ЬЬЬ

[Mad_Cat]

1)при нач=кон
2)это пох
3)счетчик=кон зн

а будующий переводчик а не программист

с какого на какой, извините7) я например тоже не программист ни разу)прикиньте, я повар)