write('Введите размер массива (не больше 100)');

Соточка самое то...первый стопарик сразу соточку..потом по писят..

Ну да....и все отмзываются типа когда капли с бутылки сливают что мальчика выдавливаю..

Картошку решил пожарить соломку..с чесноком..

Да читали уже про твои клубни..перечитай сам:)))

И про клубни и про шпроты и тополя и заборы и смородскую..читали читали..

Про шпроты бы руссик обьяснил чтоли??? Причем тут они и откуда он знает что их не покупают??

Руссик, что с продажами сникерса? Как дела обстоят?

Сникерс могу пару раз в год употребить, Когда на хавку пробивает.))) 

Сникерс, марс, китекет, вискас ,перфект, чаппи, Педигри ,найдите отличие?)) Одна контора херачит всё это дерьмо..

А сто ты про них вспомнил? При чем тогда внтераны были? )))

Так они у тебя в холодильнике есть.....?
А причем тут байкот был??

Ну про грибы мы догадывались...конечно..
От чего приход был такой?

Фигня все это..щас и шпрот то прибалтийских не найдешь..да и тогда немецкое не ешь потому как война была..ну и тд..не пойму этих принципов..2013 год на дворе..и ленин умер(с)

Несравнимые вещи прибалтика и германия..разные исходные данные изначально в отношениях к россии..

  Я примерно о том-же....

1.

var A: array[1..100] of integer;
    n,i:integer;
    flag:boolean;  
  
begin
  flag:=false;
  repeat
  write('Введите размер массива (не больше 100)');
  readln(n);
  until n < 100;
    for i:= 1 to n do begin
    write('Введите ',i,'-ое число массива');
    readln(A[ i ]);
  end;
  for i:= 1 to n do begin
    if (A[ i ] mod 5 = 3) then begin
    flag:=true;
    writeln(A[ i ]);
    end;
  end;
  if not flag then writeln('в данном массиве нет чисел, которые при делении на 5 дают в остатке 3');
  
end.


2. Только тут поправка поянтие главной диагонали присутствует только у квадратной матрицы - т.е. когда n=m.

var A: array[1..10,1..10] of integer;
    n,i,j,s:integer;
  
begin
  repeat
    write('Введите размер матрицы (не больше 10)');
    readln(n);
  until n < 10;
  for i:= 1 to n do begin
    writeln(i,'-я строка матрицы');
    for j:= 1 to n do begin
     write('Введите ',j,'-ое число ',i,'-й строки');
     readln(A[i,j]);
    end;
  end;
  s:=0;
  for i:= 1 to n do begin
    if (A[i,i] > 5 ) then s:=s+A[i,i];
    end;
  writeln('Сумма элементов главной диагонали, которые больше 5, равна',s);
  
end.


3.

var A: array[1..100] of integer;
    n,i,p: integer;
    
  
begin
  
  repeat
  write('Введите размер массива (не больше 100)');
  readln(n);
  until n < 100;
    for i:= 1 to n do begin
    write('Введите ',i,'-ое число массива');
    readln(A[ i ]);
  end;
  p:=A[n];
  A[n]:=A[1];
  A[1]:=p;
  writeln('');
  for i:= 1 to n do
   write(A[ i ]);
  
end.

Даже отдаленно ты не о том..

Не совсем успеваю илюха..

Вот он что жрать блинть просил..или место занимал дохуя...или блинть место цветочков занимал блинть...не забуду не прощу..тостер..

походу очень тост с маслом и джемом хотел)))

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