Выберите один из городов мира:

алг 
нач
вещтаб Dat[1:12]
вещ sum=0, srzn=0, t
цел к, n, m

| Среднемесячная температура
| по Москве
Dat[1]	:= -7.7
Dat[2]	:= -5.3
Dat[3]	:= -0.7
Dat[4]	:= 8.8
Dat[5]	:= 19.7
Dat[6]	:= 22.7
Dat[7]	:= 25.5
Dat[8]	:= 23.7
Dat[9]	:= 16.0
Dat[10]	:= 7.1
Dat[11]	:= 1.8
Dat[12]	:= -2.9
		
нц для к от 1 до 12

кц	
	
вывод "средняя температура за год = ", srzn, нс
вывод "количество месяцев в году с средней температурой >= 19 град. = ", n, нс
вывод "самыяй высокая температура  = ", t, нс
вывод "самыяй теплый месяц = ", m, нс
кон

http://pogoda.turtella.ru/Russia/Moscow/monthly/

pogoda.xlsx

Пример 1:

алг Основной
нач
цел n, k, i
лит a, b
сим c
c := "!"
b := "Привет "
ввод a
b := Склеить(b,a)
b := Склеить(b,c)
вывод b
кон

алг лит Склеить (лит a, лит c)
нач
знач := a + c
кон

Пример 2:

алг Основной
нач
цел n, k, i
лит a, b
сим c
ввод a
n := длин(a)
i := n - 1
c := Извлеч(a,i)
вывод c
кон

алг сим Извлеч (лит a, цел i)
нач
знач := a[i]
кон