Оператор условия.
Если (действие, утверждение), то.... иначе....
var
a: array[1..9999] of real;
i, n, b: integer;
begin
randomize;
Write('Введите число эементов массива:'); readln(n);
b:=0;
for i:=1 to n do
begin
a[i]:=-5+random(11);
writeln('a[', i, ']=', a[i]);
if a[i]=5 then b:=b+1;
end;
writeln('Кол-во элементов, равных 5: ', b);
end.
Алгоритм - это способ (программа) решения вычислительных и других задач, точно предписывающий, как и в какой последовательности получить результат, однозначно определяемый исходными данными. Алгоритм - одно из основных понятий математики и кибернетики. В вычислительной технике для описания алгоритма используют языки программирования.
Самый простой и лбовой вариант, если надо могу написать повеселее
язык Python
import sys
A = [1,2,3,4,5,6,7]
for i in range(len(A)):
for j in range(len(A)):
if i==j: continue
for k in range(len(A)):
if i==k or j ==k: continue
if A[i]+A[j]+A[k]==0:
print "Такие числа есть"
sys.exit()
print "Таких чисел нет"
Var i,s,x:integer;;
Begin
s:=0;
For i:=1 to 15 do
Begin
x:=sqr(i);
s:=s+x;
End;
Writeln('suma =',s );
<span>End.
2) второе решение
</span>Var i,s,x:integer;;
Begin
s:=0;
For i:=1 to 15 do s:=s+sqr(i);
Writeln('suma =',s );
End.<span>
</span>