Var
sum, a, b: integer;
begin
sum:=0;
readln(a);
readln(b);
sum:=a+b;
if (sum mod 5 = 0) then sum:=sum+1 else sum:=sum-2;
writeln(sum);
end.
Var i,k: integer;
a: array[1..16] of integer;
priz: boolean;
st: string;
begin
k:=0; priz:=false;
st:='';
randomize;
writeln('исходный массив из 16 элементов');
for i:=1 to 16 do
begin
a[i]:=random(50)-30;
write(a[i],' ');
if a[i]<0 then k:=k+1;
if (a[i] mod 3) = 0 then
begin
priz:=true;
if i>9 then
st:=st+chr(ord(49))+chr(ord((i mod 10)+48))+','
else st:=st+chr(ord(i+48))+',';
end;
end;
writeln;
delete(st,length(st),1);
if k>0 then
writeln('кол-во отрицат. элементов = ',k);
if priz then
writeln('индексы элементов, кратных трем: ',st)
else writeln('нет элементов, кратных 3');
readln;
<span>end.
</span>
<span><span>program ggl;
</span>Это название программы
</span><span>var n, i, sum : integer;
</span>Описание переменных
<span>a : array [1..1000] of integer;
</span>Описание массива а (он целочиленный, в интервале от 1 до 1000)
<span>begin readln (n);
</span>Начало программы, запрос значение переменной n
<span> sum := 0;
</span>Присвоение переменной sum значение 0
begin readln (n);
sum := 0;
<span> for i := 1 to n do begin </span>
<span> a[i] := random (100); </span>
write (a[i], ' ');
<span> sum := sum + a[i]; </span>
<span>end; </span>
begin характеризует начало новой подпрограммы. Она - цикл, в котором идет перебор чисел от 1 до значения n, элементам массива a присваиваются рандомные числа от 1 до 100, элементы массива выводятся на экран.<span>
</span>После идет подсчет значения переменной sum (причем сначала находится, например, первый элемент массива, а уже после значение переменной sum, после второй элемент массива и он прибавляется к прежнему значению переменной sum). Подпрограмма кончается.
writeln;
write (sum / n);
<span>end.
</span>Вывод значения деления переменной sum на переменную n. Конец всей программы.
<span>C)получение, хранение, преобразование и передачу информации.</span>