1
2
3
4
5
6
7
8
9
#include <iostream>
 
struct st
{
     int id;              //id
     char f[11];          //familya
     char i[11];     //imya
     char o[12];     //otchestvo
     char g[10];     //gruppa
 ...

1
2
3
4
5
6
7
8
WITH Ada.Text_IO;
USE Ada.Text_IO;
WITH Ada.Integer_Text_IO;
USE Ada.Integer_Text_IO;
WITH Ada.Float_Text_IO;
USE Ada.Float_Text_IO;
 
PROCEDURE Punktywobszarze IS
 ...

1
2
3
4
5
6
7
8
9
with Ada.Float_Text_Io; use Ada.Float_Text_Io;
with Ada.Text_IO; use Ada.Text_IO;
 
procedure Mean_Main is
 
 
   type Vector is array (Positive range <>) of Float;
   function Mean (Num : Vector) return Float is
      Sum : Float := 0.0;
 ...

1
2
3
4
5
6
7
8
9
with Ada.Float_Text_Io; use Ada.Float_Text_Io;
with Ada.Text_IO; use Ada.Text_IO;
 
procedure Mean_Main is
 
 
   type Vector is array (Positive range <>) of Float;
   function Mean (Num : Vector) return Float is
      Sum : Float := 0.0;
 ...

1
2
3
4
5
6
7
8
9
with Ada.Float_Text_Io; use Ada.Float_Text_Io;
with Ada.Text_IO; use Ada.Text_IO;
 
procedure Mean_Main is
 
 
   type Vector is array (Positive range <>) of Float;
   function Mean (Num : Vector) return Float is
      Sum : Float := 0.0;
 ...

1
2
3
4
5
6
7
8
9
with Ada.Float_Text_Io; use Ada.Float_Text_Io;
with Ada.Text_IO; use Ada.Text_IO;
 
procedure Mean_Main is
 
 
  type Vector is array(Positive range <>) of Float;
   function Mean(Num : Vector) return Float is
      Sum : Float := 0.0;
 ...

1
2
3
4
5
6
7
8
9
with Ada.Float_Text_Io; use Ada.Float_Text_Io;
with Ada.Text_IO; use Ada.Text_IO;
 
procedure Mean_Main is
 
 
  type Vector is array(Positive range <>) of Float;
   function Mean(Num : Vector) return Float is
      Sum : Float := 0.0;
 ...

1
2
3
4
5
6
7
8
9
with Ada.Float_Text_Io; use Ada.Float_Text_Io;
with Ada.Text_IO; use Ada.Text_IO;
 
procedure Mean_Main is
 
 
  type Vector is array(Positive range <>) of Float;
   function Mean(Num : Vector) return Float is
      Sum : Float := 0.0;
 ...

1
2
3
4
5
6
7
8
9
with Ada.Float_Text_Io; use Ada.Float_Text_Io;
with Ada.Text_IO; use Ada.Text_IO;
 
procedure Mean_Main is
 
 
  type Vector is array(Positive range <>) of Float;
   function Mean(Num : Vector) return Float is
      Sum : Float := 0.0;
 ...

1
2
3
4
5
6
7
8
9
with Ada.Float_Text_Io; use Ada.Float_Text_Io;
with Ada.Text_IO; use Ada.Text_IO;
 
procedure Mean_Main is
 
 
  type Vector is array(Positive range <>) of Float;
   function Mean(Num : Vector) return Float is
      Sum : Float := 0.0;
 ...

1
2
3
4
5
6
7
8
9
with Ada.Float_Text_Io; use Ada.Float_Text_Io;
with Ada.Text_IO; use Ada.Text_IO;
 
procedure Mean_Main is
 
 
  type Vector is array(Positive range <>) of Float;
   function Mean(Num : Vector) return Float is
      Sum : Float := 0.0;
 ...

1
12345678910

1
2
3
4
5
6
7
8
9
with Ada.Integer_Text_Io, Ada.Text_Io;
use Ada.Integer_Text_Io, Ada.Text_Io;
 
procedure Test is
   subtype Small is Integer range 0..99;
   Input : Small;
begin
   loop
      Get(Input);
 ...

1
2
3
4
5
6
7
8
9
with Ada.Integer_Text_Io, Ada.Text_Io;
use Ada.Integer_Text_Io, Ada.Text_Io;
 
procedure Test is
   subtype Small is Integer range 0..99;
   Input : Small;
begin
   loop
      Get(Input);
 ...

1
2
3
4
5
6
7
8
9
with Ada.Integer_Text_Io, Ada.Text_Io;
use Ada.Integer_Text_Io, Ada.Text_Io;
 
procedure Test is
   subtype Small is Integer range 0..99;
   Input : Small;
begin
   loop
      Get(Input);
 ...

1
2
3
4
5
6
7
8
9
with Ada.Integer_Text_Io, Ada.Text_Io;
use Ada.Integer_Text_Io, Ada.Text_Io;
 
procedure Test is
   subtype Small is Integer range 0..99;
   Input : Small;
begin
   loop
      Get(Input);
 ...

1
 

1
2
3
4
5
6
7
8
9
with Ada.Integer_Text_Io, Ada.Text_Io;
use Ada.Integer_Text_Io, Ada.Text_Io;
 
procedure Test is
   subtype Small is Integer range 0..99;
   Input : Small;
begin
   loop
      Get(Input);
 ...

1
2
3
4
5
6
7
8
9
with Ada.Integer_Text_Io, Ada.Text_Io;
use Ada.Integer_Text_Io, Ada.Text_Io;
 
procedure Test is
   subtype Small is Integer range 0..99;
   Input : Small;
begin
   loop
      Get(Input);
 ...

1
2
3
4
5
6
7
8
9
with Ada.Float_Text_Io; use Ada.Float_Text_Io;
with Ada.Text_IO; use Ada.Text_IO;
 
procedure Temp is
 
type Int_Array_Type is array (Natural range <>) of Integer;
function Mean (Num : Int_Array_Type) return Integer is
   Sum : Integer := 0;
   Cnt : Natural := Num'First;
 ...

1
2
3
4
5
6
7
8
9
with Ada.Float_Text_Io; use Ada.Float_Text_Io;
with Ada.Text_IO; use Ada.Text_IO;
 
procedure Temp.adb is
 
type Int_Array_Type is array (Natural range <>) of Integer;
function Mean (Num : Int_Array_Type) return Integer is
   Sum : Integer := 0;
   Cnt : Natural := Num'First;
 ...

1
2
3
4
5
6
7
8
9
with Ada.Float_Text_Io; use Ada.Float_Text_Io;
with Ada.Text_IO; use Ada.Text_IO;
 
procedure Temp is
 
type Int_Array_Type is array (Natural range <>) of Integer;
function Mean (Num : Int_Array_Type) return Integer is
   Sum : Integer := 0;
   Cnt : Natural := Num'First;
 ...

1
2
3
4
5
6
7
8
9
with Ada.Float_Text_Io; use Ada.Float_Text_Io;
with Ada.Text_IO; use Ada.Text_IO;
 
procedure Temp is
 
type Int_Array_Type is array (Natural range <>) of Integer;
function Mean (Num : Int_Array_Type) return Integer is
   Sum : Integer := 0;
   Cnt : Natural := Num'First;
 ...

1
2
3
4
5
6
7
8
9
with Ada.Float_Text_Io; use Ada.Float_Text_Io;
with Ada.Text_IO; use Ada.Text_IO;
 
procedure Mean_Main is
 
type Int_Array_Type is array (Natural range <>) of Integer;
function Mean (Num : Int_Array_Type) return Integer is
   Sum : Integer := 0;
   Cnt : Natural := Num'First;
 ...

1
2
3
4
5
6
7
8
9
with Ada.Float_Text_Io; use Ada.Float_Text_Io;
with Ada.Text_IO; use Ada.Text_IO;
 
procedure Mean_Main is
 
type Int_Array_Type is array (Natural range <>) of Integer;
function Mean (Num : Int_Array_Type) return Integer is
   Sum : Integer := 0;
   Cnt : Natural := Num'First;
 ...

1
2
3
4
5
6
7
8
9
with Ada.Float_Text_Io; use Ada.Float_Text_Io;
with Ada.Text_IO; use Ada.Text_IO;
 
procedure Mean_Main is
 
type Int_Array_Type is array (Natural range <>) of Integer;
function Mean (Num : Int_Array_Type) return Integer is
   Sum : Integer := 0;
   Cnt : Natural := Num'First;
 ...

1
2
3
4
5
6
7
8
9
with Ada.Float_Text_Io; use Ada.Float_Text_Io;
with Ada.Text_IO; use Ada.Text_IO;
 
procedure Mean_Main is
 
 
  type Vector is array(Natural range <>) of Integer;
   function Mean(Num : Vector) return Integer is
      Sum : Float := 0.0;
 ...

1
2
3
4
5
6
7
8
9
with Ada.Float_Text_Io; use Ada.Float_Text_Io;
with Ada.Text_IO; use Ada.Text_IO;
 
procedure Mean_Main is
 
 
  type Vector is array(Positive range <>) of Float;
   function Mean(Num : Vector) return Float is
      Sum : Float := 0.0;
 ...

1
2
3
4
5
6
7
8
9
with Ada.Float_Text_Io; use Ada.Float_Text_Io;
with Ada.Text_IO; use Ada.Text_IO;
 
procedure Mean_Main is
 
 
  type Vector is array(Positive range <>) of Float;
   function Mean(Num : Vector) return Float is
      Sum : Float := 0.0;
 ...

1
2
3
4
5
6
7
8
9
with Ada.Float_Text_Io; use Ada.Float_Text_Io;
with Ada.Text_IO; use Ada.Text_IO;
 
procedure Mean_Main is
 
 
  type Vector is array(Positive range <>) of Float;
   function Mean(Num : Vector) return Float is
      Sum : Float := 0.0;
 ...