Напишите программы на паскале с массивами

[Жавохир]

Привет всем. Пожалуйста помогите, завтра зачетку сдавать. Сделайте любые 2 из этих заданий(как положено программы, если можно, с объяснениями). Сорри если такая тема уже была, я поискал но не нашел. Пожалуйста побыстрее, мне до завтра надо. Мне надо еще объяснять что там я написал и почему.
Задания:
1. Введите с клавиатуры в массив Х пять целочисленных значений, выведите их в одну строку через запятую; получите для массива среднюю арифметическую.
2. Введите с клавиатуры пять целочисленных элементов массива Х. Выведите на экран значения корней и квадратов каждого из элементов массива.
3. Создайте массив из пяти фамилий и выведите их на экран столбиком , начиная с последней.
4. Создайте массив из пяти фамилий и выведите на экран те из них, которые начинаются с определенной буквы, которая вводится с клавиатуры.
5. Дан одномерный массив. Вставьте в него элемент L в позицию K.
Вот любые 2 из этих. Заранее спасибо

[KooKish]

Тема еще актуальна ? Могу помочь.

[Жавохир]

Да, на следующем уроке покажу. Сделай что сможешь кроме третьего

[KooKish]

Первая:

Program Primer1;
Const
  n = 5;
Var
  X: array[1..n] of integer;
  i,a,sum: integer;
  sr: real;
  s: string;
Begin
  Writeln('Введите ',n,' элементов массива:');
  For i := 1 to n do
    begin
      Write('Введите ',i,' элемент массива: ');
      Readln(a);
      X[i] := a;
    end;
  s := IntToStr(X[1]);
  For i := 2 to n do
    s := s + ',' + IntToStr(X[i]);
  sum := 0;
  For i := 1 to n do
    sum := sum + X[i];
  sr := sum / n;
  Writeln('Введенный массив: ',s);
  Writeln('Среднее арифметическое этого массива: ',sr);
End.

Пятая:

Program Primer1;
Const
  n = 5;
Var
  X: array of integer;
  i,len,a,tmp1,tmp2,l,k: integer;
  s1,s2: string;
Begin
  SetLength(x,n);
  Writeln('Введите ',n,' элементов массива:');
  For i := 0 to n - 1 do
    begin
      Write('Введите ',i+1,' элемент массива: ');
      Readln(a);
      X[i] := a;
    end;
  s1 := IntToStr(X[0]);
  For i := 1 to n-1 do
    s1 := s1 + ',' + IntToStr(X[i]);
  Writeln('Первоначальный массив: ',s1);
  Write('Введите элемент который хотите вставить:');
  Readln(l);
  Write('Введите позицию на которую хотите вставить элемент:');
  Readln(k);
  SetLength(x,n+1);
  If (k > 0) and (k <= n+1) then
    begin
      If (k <> n+1) then
        begin
          tmp1 := X[k-1];
          X[k-1] := l;
          for i := k to n do
            begin
              tmp2 := X[i];
              X[i] := tmp1;
              tmp1 := tmp2;
            end;
        end
        else
          X[k-1] := l;
        s2 := IntToStr(X[0]);
        For i := 1 to n do
          s2 := s2 + ',' + IntToStr(X[i]);
        Writeln('Массив с добавленным элементом: ',s2);
    end
  else Writeln('Индекс должен быть больше 0 и не больше ',n+1);
End.

Задачи очень простые, в след раз, попробуй сам начать хотя бы. Тут никто за просто так с 0 ничего не делает.

[Жавохир]

Спасибо. Я просто вообще не разбираюсь в этом

[Izobara]

Эмм, так может, лучше в ПТУ? Зачем учиться, если ты в этом не разбираешься?

[Wizard#2277]

Сообщение от Izobara

Эмм, так может, лучше в ПТУ ?

Сейчас программистов и в ПТУ штампуют за определенную плату

[Жавохир]

Мля умники мне это в жизни не нужно, я не учусь на программиста, мне надо норм оценку получить и всё.