Readln(a);
a1:=a div 100;
a2:=a div 10 mod 10;
r:=abs(a1-a2);
Существует 4 вида алгоритмов:
Линейный алгоритм -- это описание действий, которые выполняются однократно в заданном порядке.
Циклический алгоритм -- это описание действий, которые повторяются указанное число раз или пока не выполнено заданное условие. (Перечень повторяющихся действий -- тело цикла)
Разветвляющийся алгоритм — алгоритм, в котором в зависимости от условия выполняется либо та, либо другая последовательность действий.
Смешанный алгоритм -- это алгоритм, в котором могут соединиться разные виды алгоритмов. (Например, циклический и линейный)
1) var a:array[1..10] of real;
i:integer;
begin
randomize;
for i:=1 to 10 do begin
a[i]:= random(200) -100;
write(a[i]:5); end;
writeln;
for i:=1 to 10 do
if a[i]>=0 then a[i]:=a[i]/2 else a[i]:=i;
write(a[i]:5);
end.
2) var a:array[1..1000] of real;
s1,s2:real;
i,n:integer;
begin
write('Введите кол-во элементов: '); readln(n);
writeln('Введите элементы массивы: ');
for i:=1 to n do
read(a[i]);
s1:=0; s2:=0;
for i:=1 to n do
if odd(i) then s1:=s1+a[i] else s2:=s2+a[i];
writeln('Сумма элементов с четными номерами: ',s2);
writeln('Сумма элементов с нечетными номерами: ',s1);
end.
Сознание - это форма отражения человеком окружающей действительности. Мир, окружающий нас материален, и мы являемся продуктом материи.