Решить на вставку в массив. дан целочисленный линейный массив. вставить в него заданное число после второго положительного элемента.

//Pascal ABC.NET v3.1 сборка 1219

Const
  n=6;

Var
 ar:array[1..n] of integer;
 i,a,k,ki:integer;
begin
k:=0;
 write('A:');
 readln(a);
 writeln('Array:');
 for i:=1 to n-1 do
 begin
  readln(ar[i]);
  if ar[i]>0 then
  begin
    inc(k);
    if k=2 then ki:=i;
  end;
 end;
 for i:=n-1 downto ki+1 do
 ar[i+1]:=ar[i];
 ar[ki+1]:=a;
 writeln('Final array:');
 for i:=1 to n do
 write(ar[i]:4);
end.

Пример ввода:
6
1
2
3
4
5
Пример вывода:
1 2 6 3 4 5

Таблицы "Успеваемости" типа «объект—объект»

Ученик       Русский Алгебра Химия Физика История Музыка

Аликин Петр           4     5               5    4               4          5

Ботов Иван       3     3               3    3               3   4

Волков Илья   5     5               5    5               5    5

Галкина Нина       4          4               5    2               4           4

Строки относятся к ученикам — это первый вид объектов; столбцы — к школьным предметам — второй вид объектов. В каждой клетке на пересечении строки и столбца — оценка, полученная данным учеником по данному предмету.

Проверку можно устроить, например, так. Пусть сначала i = 0, и в цикле увеличиваем i, пока не уйдем за границы массива или не встретим элемент, равный 7. После выхода из цикла проверяем, по какой причине был выход из цикла, и в зависимости от этого выводим либо номер элемента, либо сообщение об отсутствии семерок. При этом будет выведен только номер первой семерки, если их в массиве несколько.

Вывод массива можете дописать при необходимости самостоятельно, видимо, считается, что вы это умеете делать :)

Код (Pascal):

const

 n = 20;

var

 a: array[1..n] of integer;

 i: integer;

begin

 randomize;

 for i := 1 to n do

   a[i] := random(50) + 1;

 i := 0;

 repeat

   i := i + 1;

 until (i > n) or (a[i] = 7);

 if i > n then

   write('нет')

 else

   write(i)

end.