Var
i,sum:integer;
res:real;
a:array [1..5] of integer;
begin
for i:=1 to 5 do begin
readln(a[i]);
end;
for i:=1 to 5 do begin
sum:=sum+a[i];
end;
res:=sum/5;
writeln(res);
end.
Циклический алгоритм - это такой алгоритм, действия которого повторяются.
Линейный алгоритм - алгоритм, все этапы которого выполняются однократно и строго последовательно.
Разветвляющийся алгоритм - алгоритм, содержащий хотя бы одно условие, в результате проверки которого ЭВМ обеспечивает переход на один из двух возможных шагов.
Program s;
uses crt;
var s,h,a:real;
begin
clrscr;
writeln('введите основание и высоту через пробел');
readln(a,h);
s:=0.5*a*h;
writeln('s= ',s);
readkey;
<span>end.
при вводе 2 и 5 площадь будет равна 5</span>
Mod(23,10) = 3
div(23,10) = 2
3*10+2 = 32
1) при помощи смайликов
2)... Касперского
3).... мыши