ОЧЕНЬ НУЖНА ! 1) ЩО ВІДБУДЕТЬСЯ ПІСЛЯ ВИКОНАННЯ ФРАГМЕНТА ПРОГРАМИ: KIL:=0; FOR I:=1 TO 5 DO IF A[I]>0 THEN KIL:=KIL+1; 2) ПРИВЕДЕНА ПРОЦЕДУРА ВПОРЯДКУВАННЯ ЕЛЕМЕНТІВ МАСИВУ ЗА ЗРОСТАННЯМ, АЛЕ ОДИН З ФРАГМЕНТІВ ТРЕБА ВПИСАТИ САМОСТІЙНО: PROCEDURE TFORM1.BUTTON1CLICK(SENDER: TOBJECT); VAR A: ARRAY [1..9] OF REAL; P:REAL; N, I,J: INTEGER; BEGIN N:=9; FOR I:=1 TO N DO A[I]:=STRTOFLOAT(MEMO1.LINES[I-1]); FOR J:=1 TO N-1 DO FOR I:=1 TO N-J DO …………………………………………………………………………… ……………………………………………………………………………. MEMO2.CLEAR; FOR I := 1 TO N DO MEMO2.LINES. APPEND(FLOATTOSTR(A[I])); END;

// PascalABC.NET 3.2, сборка 1344 от 22.11.2016
// Внимание! В более ранних версиях работа не гарантируется!

begin
  var m:=ReadInteger('Количество строк в массиве:');
  var n:=ReadInteger('Количество столбцов в массиве:');
  Writeln('Вводите элементы массива');
  var a:=new integer[m,n];
  for var i:=0 to m-1 do
    for var j:=0 to n-1 do Read(a[i,j]);
  Writeln('-'*20);
  foreach var c in a.Cols do Write(c.Sum,' ')
end.

Пример
Количество строк в массиве: 4
Количество столбцов в массиве: 3
Вводите элементы массива
1 6 -2
0 6 8
-3 6 1
4 6 -3

2 24 4

Using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;

namespace ConsoleApplication4
{
    class Program
    {
        static void Main(string[] args)
        {
            bool result = false;
            Console.WriteLine("Введи строку");
            string str = Console.ReadLine();
            for (int i = 0; i < str.Length - 1; i++)
            {
                if (str.Substring(i, 1) == str.Substring(i + 1, 1))
                {
                    result = true;
                    break;
                }
            }

            if (result == true)
                Console.WriteLine("Да, встречаются");
            else
                Console.WriteLine("Нет, не встречаются");

            Console.ReadKey();
        }
    }
}