Помогите пожалуйста разобраться с массивами в паскале!

[Omsk-champion]

ОЧЕНЬ НУЖНА ВАША ПОМОЩЬ(на днях надо будет сдавать.а я вообще не могу понять их,никак===((

1. Дана строка. Подсчитать количество цифр, после которых следуют символы «+» или «-», а также количество «=». Вывести сообщение о том, совпадают ли подсчитанные количества. Если нет – вывести сообщение о том, каких символов не хватает«+», «-» или «=».
2. Дана строка, содержащая более двух слов, между словами – пробел, за последним словом точка. Вывести только те слова строки, которые начинаются с того же символа, что и первое слово.
3. Дан массив, содержащий n строк. Отсортировать первые р элементов массива по возрастанию текущих длин строк.
4. Запись определена типом

type Student=record 
Gruppa, Famil, Name: sting; 
Kurs: 1..5; 
Ball: array [1..4] of 0..100; 
end; 
var Institut: array[1..100] of Student;

Вывести фамилии и номер курса студентов, имеющих задолженность по первым двум предметам (меньше 61 балла).
5. Дан массив записей, содержащий различные даты. Каждая дата представлена записью из трех полей: число, месяц, год. Определить самую раннюю дату (по месяцу) заданного года.
6. Имеется информация о сотрудниках фирмы: фамилия, имя, номер отдела, стаж работы, возраст (полных лет). Определить средний возраст сотрудников заданного отдела.

[Stilet]

6. Имеется информация о сотрудниках фирмы: фамилия, имя, номер отдела, стаж работы, возраст (полных лет). Определить средний возраст сотрудников заданного отдела.

Ну это не сложно:

Описываем запись по сотруднику, в которой будет поле Vozrast, и массив сотрудников типа этой записи

For i:=1 to length(Массив) do  summ:=summ+Массив[i].Vozrast;
summ:=summ/length(Массив);

Вывести фамилии и номер курса студентов, имеющих задолженность по первым двум предметам (меньше 61 балла).

Примерно так:

For i:=1 to 100 do 
 with Institut[i] do begin
  if ball<61 then begin
   writeln(Gruppa,' ',Famil,' ',Name);
    writeln(Kurs);
  end;
 end;

текущих длин строк

Это как?

Вывести сообщение о том, совпадают ли подсчитанные количества

Тоже мало что понял.

2. Дана строка, содержащая более двух слов, между словами – пробел, за последним словом точка. Вывести только те слова строки, которые начинаются с того же символа, что и первое слово.

Приблизительно так:

 var k,s:string;i:integer;
begin
 s:='privet klasnyy den priyatel. ';
 i:=1; while (i<=length(s)) do begin
  if s[i]=' ' then begin
  if k[1]=s[1] then write(k,' ');
   k:='';
  end else  k:=k+s[i];
  inc(i);
 end;
 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

[Omsk-champion]

спасибо большое!!!!
а вот в 6 задание какое будет тело программы до и после твоих слов??
не будет же там в программе 2 строчки,да?и в заданиии про 61 бал наверное тоже самое,да?

[Veselyn]

Ха-ха-ха...
Мне интеpесно, откуда у вас этот блок програмы?

Сообщение от Omsk-champion

type Student=record 
Gruppa, Famil, Name: sting; 
Kurs: 1..5; 
Ball: array [1..4] of 0..100; 
end; 
var Institut: array[1..100] of Student;

[IT-man]

{1. Дана строка. Подсчитать количество цифр, после которых следуют символы «+» или «-»,
 а также количество «=». Вывести сообщение о том, совпадают ли подсчитанные количества. 
Если нет – вывести сообщение о том, каких символов не хватает«+», «-» или «=».}
readln(s);
for i:=1 to length(s) do begin
if (s[i]:='+') or (s[i]='-') then inc(k1)
else if s[i]:='=' then inc(k3);
end;
if k1<k3 then writeln ('+ and - ne hvatat');
if k3<k1 then writeln ('= ne hvatat');
readln;

[Stilet]

не будет же там в программе 2 строчки,да?и в заданиии про 61 бал наверное тоже самое,да?

Конечно
А учебник почитать по паскалю?
Создаеш переменные, подключаеш модуль CRT...

[Omsk-champion]

примерно понял,типа перед этим надо так:
program 1;
var crt;
потом то что ты написал,и в конце end.
я прав,да???
а как создавать переменные,через var?

[Omsk-champion]

в компе шарю нормально,винда там,железо,проги на компе,а в програмировании ноль(в паскале)-полный ноль...
Поможешь?

[IT-man]

program proga;// имя проги
uses crt;// подключение модулей
var 
 i:integer// объявление переменных имя:тип
begin
...............//тело проги
end.

[Манжосов Денис :)]

Я не понимаю, по паскалю задачи в школе задали или в институте или в универе? (я ж не знаю)
Uses Crt;
Это модуль Crt такой.
А я в компах сейчас на самом деле все шарят...
И вообще говори, какую именно задачу тебе решать. Что именно непонятно?