And (энд) - И end (энд) - конец nil (нил) - нуль set (сет) - множество array (эрей) - массив file (файл) - файл not (нот) - не then (зен) - то begin (бегин) - начало for (фo) - для of (оф) - из to (ту) - увеличивая до case (кейс) - вариант while (вайл) - пока downto (даунту)- уменьшая до record (рикод) - запись with (вис) - с function (фанкшн)- функция or (ор) - или type (тайп) - тип const (конст) - константа go to (гоу ту)- переход на packed (пэкт) - упаковать until (антил) - до div (див) - разделить if (иф) - если procedure() - процедура var (вар) - переменная do (ду) - выполнить in (ин) - в program (програм) - программа else (элс) - иначе mod (мод) - модуль repeat (рипит) - повторять
end (энд) - конец
nil (нил) - нуль
set (сет) - множество
array (эрей) - массив
file (файл) - файл
not (нот) - не
then (зен) - то
begin (бегин) - начало
for (фo) - для
of (оф) - из
to (ту) - увеличивая до
case (кейс) - вариант
while (вайл) - пока
downto (даунту)- уменьшая до
record (рикод) - запись
with (вис) - с
function (фанкшн)- функция
or (ор) - или
type (тайп) - тип
const (конст) - константа
go to (гоу ту)- переход на
packed (пэкт) - упаковать
until (антил) - до
div (див) - разделить
if (иф) - если
procedure() - процедура
var (вар) - переменная
do (ду) - выполнить
in (ин) - в
program (програм) - программа
else (элс) - иначе
mod (мод) - модуль
repeat (рипит) - повторять
program max_elementarray ;
var i, max : integer ;
a : array [1..10] of integer;
begin
for i : = 1 to 10 do
begin
readln(a[i]);
end;
max : = a[1];
for i : = 2 to 10 do
if a[i]> max then max : = a[i];
writeln('max element of array = ',max) ;
readln ;
end.