| Код |
uses crt;
var a:array[1..100] of integer;
i,x,n,sum,otvet:integer;
procedure input;
begin
write('Случайная генерация (1) или ручной ввод (2)? ');
readln(otvet);
case otvet of
1: for i:=1 to n do
begin
a[i]:=random(100);
write(a[i],' ');
end;
2: for i:=1 to n do
begin
write('Введите A[',i,']=');
readln(a[i]);
end;
end;
end;
procedure poisk;
begin
for i:=1 to n do
if a[i]=x*2
then
sum:=sum+a[i];
end;
begin
write('Кол-во элементов массива ');
readln(n);
write('Ваше число ');
readln(x);
input;
poisk;
write('Искомая сумма = ',sum);
end.
|
|