// p106

// Язык Паскаль
// Основы программирования
// Табличные данные и массивы
// 1. Одиночные строки
t [1], t [5], t [i], h [1981, 9], h [i, j];
var <идентификатор>: array [<тип индекса>] of <тип компонент>;
var t: array [1..12] of real;
cod [x]; l [true]; cod [chr (65)]; l [a > 0];
var h: array [1981..1990] of array [1..12] of real;
h [1981] [1]; h [1985] [10]; h [1990] [12];
h [1981, 1]; h [1985, 10]; h [1990, 12];
var h: array [1981..1990, 1..12] of real;
var a: array [1..10, 1..20, 1..30] of integer;
var p, q: array [1..5, 1..10] of real;
h [1989] = h [1981];
// 2. Группы строк - 1
var cod: array [char] of 1..100;
l: array [boolean] of char;
type index = (a, b, c, d);
var class_10: array [index] of byte;
type mas1 = array [1..100] of integer;
mas2 = array [-10..10] of char;
var num: mas1; sim: mas2;
type month = array [1..12] of real;
year = array [1981..1990] of month;
var h: year;
const imax = 10; jmax = 20;
var mas: array [1..imax, 1..jmax] of integer;
// 3. Группы строк - 2
var p: array [1..12] of real;
p = h [1989];
h [1989] = h [1981];
h [1981] = p;
for i = 1 to 12 do
readln (t [i]);
for i = 1 to imax do
for j = 1 to jmax do
readln (mas [i, j]);
for i = 1 to 12 do
write (t [i]:8:4);
for i = 1 to imax do
begin
for j = 1 to jmax do
write (mas [i, j]:6);
writeln
end;
tmax = t [1];
nummax = 1;
for i = 2 to 12 do
if t [i] > tmax then
begin
tmax = t [i];
num max = i
end;
// 4. Группы строк - 3
for i = 1 to n - 1 do
for k = 1 to n - i do
if x [k] > x [k + 1] then
begin
a = x [k];
x [k] = x [k + 1];
x [k + 1] = a
end;
// 5. Программа 1
program example;
const n = 12;
type vec = array [1..n] of real;
var t, dt: vec;
st: real;
i: integer;
begin
writeln ('Вводите таблицу температур');
for i = 1 to n do
begin
write (i:2, ':');
readln (t [i]);
end;
st = 0;
for i = 1 to n do
st = st + t [i];
st = st / n;
for i = 1 to n do
dt [i] = t [i] - st;
writeln ('Средняя температура равна', st:6:2);
writeln;
writeln ('Отклонения от средней температуры');
for i = 1 to n do
writeln (i:1, ':', dt [i]:6:2)
end.
// 6. Программа 2
program example_2;
type month = array [1..12] of real;
year = array [1981..1990] of month;
var h: year;
s: array [1981..1990] of real;
i, j, k: integer;
begin
for i = 1981 to 1990 do
for j = 1 to 12 do
begin
write (j:2, '.', i:4, ':');
readln (h [i, j])
end;
for i = 1981 to 1990 do
begin
s [i] = 0;
for j = 6 to 8 do
s [i] = s [i] + h [i, j];
s [i] = s [i] / 3
end;
k = 1981;
for i = 1982 to 1990 do
if s [i] > s [k] then k = i;
writeln ('Самое тёплое лето было в', k, '-м году')
end.