--- C# 7.3 ---
using System;
using System.Collections.Generic;
using System.Linq;
namespace CSLear
{
class Program
{
private const int stdRow = 5;
private const int stdCols = 6;
static void Main(string[] args)
{
int[,] Arr = new int[stdRow, stdCols];
ArrayRandomize(ref Arr, stdRow, stdCols);
RemoveFirstRow(ref Arr, stdRow, stdCols);
Console.ReadKey();
}
public static void RemoveFirstRow<T>(ref T[,] Matr, int ArrRows, int ArrCols)
{
T[,] Temp = new T[ArrRows-1,ArrCols];
for (int i = 1; i < ArrRows; i++)
{
for (int j = 0; j < ArrCols; j++)
{
Temp[i - 1, j] = Matr[i, j];
}
}
Matr = Temp;
}
public static void ArrayRandomize(ref int[,] Arr, int ArrRows, int ArrCols)
{
Random r = new Random();
for (int i = 0; i < ArrRows; i++)
{
for (int j = 0; j < ArrCols; j++)
{
Arr[i, j] = r.Next(-99, 99);
}
}
}
}
}
Объяснение:
l,a,b:integer;
s: string;
begin
write('Введите строку: ');
readln(s);
l:=length(s);
writeln('L=',l);
if l>6 then
begin
a:=pos('(',s);
b:=pos(')',s);
if (a>0) and (b>0) then writeln(copy(s,a+1,b-a-1));
if (a=0) and (b>0) then writeln('Скобка не открыта');
if (a>0) and (b=0) then writeln('Скобка не закрыта');
if (a=0) and (b=0) then writeln('Текста в скобках нет');
end;
end.
var
n,i,k:integer;
s,t: string;
begin
write('Введите строку: ');
readln(s);
t:=s;
repeat
i:=pos(' ',t);
delete(t,1,i);
until i=0;
k:=length(t);
for i:=1 to k do
if t[i]='k' then n:=n+1;
writeln('Кол-во букв k: ',n);
end.