vertrigo

Program lab6;
uses crt;
Type mas = array[1..10] of integer;
     mc = array[1..3] of real;
var a,b,c:mas; i:integer; pc:mc; max:real;

Procedure InMas(var m:mas; n:integer; name:char);
var i:integer;
begin
writeln('Введите массив ',name,' из',n:3,' элементов:');

vertrigo

Program lab6;
uses crt;
const R=4;
type mas = array[1..4] of integer;
var x,y:mas; count,i:integer;

procedure InCoord(var x:mas; var y:mas; n:integer);
var i:integer;
begin
writeln('Введите координаты',n:3,' точек. Координаты каждой точки должны иметь вид X Y: ');

vertrigo

Program Lab6;
Uses Crt;
type mas=array[1..5]of integer;
var a,b,c:mas; p,sum:integer; sr:real;

Procedure InMas(var m:mas;n:integer;mas_name:char);
Var i:integer;
Begin
writeln('Введите массив ',mas_name,' из ',n,' элементов:');
for i:=1 to n do read(m[i])

vertrigo

Program lab4;
Uses Crt;
Const n=15;
Type mas=array [1..n] of integer;
Var a,b:mas; i,k: integer;
Begin
Clrscr;
writeln('Введите ',n:2,' элементов массива:');
for i:=1 to n do read(a[i]);
writeln('Исходный массив:');

vertrigo

Program lab5;
Uses Crt;
Type matr = array [1..5,1..5] of integer;
mas = array [1..5] of integer;
Var a:matr; b:mas; i, j, min:integer;

Begin
clrscr;
writeln('Введите матрицу 5х5:');
for i:=1 to 5 do 

vertrigo

Program lab6;
uses crt;
const R=4;
type mas = array[1..4] of integer;
var x,y:mas; count,i:integer;

procedure InCoord(var x:mas; var y:mas; n:integer);
var i:integer;
begin
writeln('Введите координаты',n:3,' точек. Координаты каждой точки должны иметь вид X Y: ');

vertrigo

Program ex4;
uses crt;
CONST
 k=5;
 n=7;
VAR
 a:Array[1..k*n] of Real;
 Max:Real;
 i:Integer;

vertrigo

Program ex4;
uses crt;
var k,n,a:integer; e,x,y:real;
begin
ClrScr;
writeln('введите положительное число:');
readln(a);
writeln('введите число степени - должно быть > 0:');
readln(n);
writeln('введите начальное приближение:');

vertrigo

Program lab7;
Uses crt;
Var st:string; i: integer; c:char;
Begin
ClrScr;
writeln('Введите строку символов:');
readln(st); i:=1;
while i <= length(st) do
   if (st[i] = 'A') and (st[i+1] = 'B') then begin
       delete(st,i,1);

vertrigo

program analize_methods;
uses crt;
type
     student=record
               fam,name,group:string[20];
               year:integer;
               sr:real
             end;
     ar=array [1..10] of student;
var a,b:ar;