Помогите пожалуйста, скоро нужно сдать лабу!

[qwerty121]

Нужно сделать в паскале abc 5 задач:

1. Определить принадлежит ли некоторая точка М с произвольными координатами х, y закрашенной области.

2. На одномерный массив
Дана последовательность чисел аi (i=1, 2, …, N). Подсчитать сумму и количество четных чисел, вывести их значения и порядковые номера.

3. Дан двумерный массив размером n*m, заполненный случайным образом.
1. Заменить максимальный элемент каждой строки нулем
2. Вставить после каждого столбца, содержащего максимальный элемент массива, столбец из нулей.
3. Удалить все столбцы, в которых встретится нечетный положительный элемент.
4. Поменять местами первый и предпоследний столбцы.

4. Дана строка. Подсчитать количество букв k в последнем ее слове.

5. Составить список, содержащий сведения об n студентах. Для каждого студента должно быть указано:
фамилия;
дата рождения;
год поступления в университет;
курс;
группа;
оценки текущей сессии по трем предметам.
Информацию о каждом студенте оформить в виде записи. Совокупность записей объединить в массив.

Вывести на экран анкетные данные студентов, которые родились в октябре. Если таких нет, то данные студентов, которые родились в ноябре. n=5.

[Вадим Мошев]

К какому сроку это надо сделать? Я могу помочь за вознаграждение.
Пишите на адрес vadimFreelance {{собaка}} yandex {тчк} ru

[mishammm]

const
     n=6;

var
    a:array[1..n] of integer;
    i:integer;
    kol,s:real;
    
    begin
     Writeln('vvedi massiv');
    For i:=1 to n do begin
   
    readln(a[i]);
    end;
    
    
    s:=0;
    For i:=1 to n do
    begin
    If (a[i] mod 2  = 0) then
    s:=s+a[i];
    end;
    
    
 
     writeln('summa chetnix chisel = ' ,s);
    
    
    For i:=1 to  n do 
    If (a[i] mod 2 =  0 ) then 
    begin
   kol:=kol+1;
   end;
   writeln('kolichestvo takix  chisel = ' , kol);
   
   
   
   For i:=1 to n do 
   If a[i] mod 2  = 0 then
   write('chetnie chisla massiva = ' , a[i],' ');
   
   writeln;
   
  For i:=1 to  n do
  If (a[i] mod 2 = 0) then
  Writeln('porydadkoviy nomer chetnogo elementa = ' , i);
   
   end.

вот на одномерный массив тебе

[qwerty121]

Спасибо тебе, а хотя бы еще 2 сможешь решить?

[Vanta11a]

А в пупок не поцеловать? Самостоятельно что сделано, жертва тяги к халяве?

[qwerty121]

да ну что ты!

[qwerty121]

ну ок приму к сведению!